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Appendix  D. 

Software  Library  Implementation  Code 


D.1  Aircraftxpp 


/*  MODULE  NAME:  Aircraft. cpp  */ 

/*  AUTHOR:  Captain  David  Vloedman  */ 

/*  DATE  CREATED:  Sept  20,  1998  */ 

/*  */ 

/*  PURPOSE:  This  module  of  code  houses  the  Aircraft  class  object.  */ 

/*  */ 

/*  COMPILER:  Borland  C++  BuilderS  Standard  version  */ 

/*  This  compiler  should  be  used  to  compile  and  link.  */ 

/*  */ 


/****************★*********★***************★*******************★*****★*****★*/ 

/*****************************★★**/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/****★*★★*★*****★**********★****★*/ 

# inc lude  < vc 1 . h> 

#pragma  hdrstop 

ttpragma  package (smart_init) 

/*★**************★***★************/ 

/*  USER-BUILT  LIBRARIES  */ 

/*******************★*********★***/ 

#include  "Aircraft .h" 

/*★********************★**********/ 

/*  C  GENERAL  LIBRARIES  */ 

/**★******★********★**************/ 

#include  <stdio.h> 

#include  <iostream.h> 

/************************★**********★***/ 

/*  CREATE  THE  AIRCRAFT  CONSTRUCTOR  */ 
/*****************★*********************/ 

Aircraft Aircraft ( )  : 

LatitudeDegree (0) , 

LatitudeMinute ( 0 ) , 

LatitudeSecond(O) , 

LatitudeHemisphere ( 0 ) , 

LongitudeDegree ( 0 )  , 

LongitudeMinute ( 0 ) , 

LongitudeSecond (0)  , 

VelocityX(O) , 

VelocityY(O)  , 

VelocityZ(O)  , 

Altitude (0) 

{ 

} 


/*  CREATE  THE  AIRCRAFT  DESTRUCTOR  */ 

^***********************illrifc-i*rTit******TV*****  j 

Aircraft : : -Aircraft ( ) 

{ 

} 
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/****★************★**  AIRCRAFT  MANIPULATION  FUNCTIONS 
/******************************************************* 

/★*****★******************★*************/ 

/*  SET  LATITUDE  DEGREE  */ 

/**********★*****************★**********/ 
void  Aircraft :: SetLatitudeDegree (int  Id) 

{  LatitudeDegree  =  Id;  } 

/*****★****************★**★****★**★*****/ 

/*  SET  LATITUDE  MINUTE  */ 

/*★*★★*★***★*********★★*★*★★*★*******★*★/ 
void  Aircraft :  rSetLatitudeMinute  (int  liti) 

{  LatitudeMinute  =  Im;  } 

/***************************************/ 

/*  SET  LATITUDE  SECOND  */ 

/********★**★****★****★★**★********★★***/ 
void  Aircraft :: SetLatitudeSecond (double  Is) 

{  LatitudeSecond  =  Is;  } 

/*★★★***********★********★*******★★*****/ 

/*  SET  LATITUDE  HEMIPHERE  */ 

/*  LatitudeHemi sphere  =  "0"  =  NORTH  */ 

/*  LatitudeHemi sphere  =  "I"  =  SOUTH  */ 

/***************★***********************/ 
void  Aircraft: :SetLatitudeHemisphere( int  h) 

{  LatitudeHemisphere  =  h;  } 

/***************************************/ 

/*  SET  LONGITUDE  DEGREE  */ 

/*★**★*******★*★********★***************/ 
void  Aircraft :: SetLongitudeDegree (int  Id) 

{  LongitudeDegree  =  Id; } 

/********************★******************/ 

/*  SET  LONGITUDE  MINUTE  */ 

/**************★**********★*********★★**/ 
void  Aircraft : ;SetLongitudeMinute (int  Im) 

{  LongitudeMinute  =  Im; } 

/****★**********★**************★********/ 

/*  SET  LONGITUDE  SECOND  */ 

/****★★★*****★***★★*********************/ 
void  Aircraft :: SetLongitudeSecond (double  Is) 

{  LongitudeSecond  =  Is;} 

/************★**************************/ 

/*  SET  VELOCITY  X  (ECEF  FRAME)  */ 

/***★★************★★***★***********★***★/ 
void  Aiircraft :: SetVelocityX (double  vel) 

{  VelocityX  =  vel;} 

/******★*★*********★********************/ 

/*  SET  VELOCITY  Y  (ECEF  FRAME)  */ 

/******★★******★*★*★***★★★★*************/ 
void  Aircraft :: SetVelocityY( double  vel) 

{  VelocityY  =  vel;} 

/**★*******★★******★********************/ 

/*  SET  VELOCITY  Z  (ECEF  FRAME)  */ 

/**★★********★************************** y 

void  Aircraft :: SetVelocityZ (double  vel) 


********************  j 
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{  VelocityZ  =  vel;} 

/******★****************★★****★******★**/ 
/*  SET  ALTITUDE  */ 

/****************★********★★************/ 
void  Aircraft :: SetAltitude (double  alt) 

{  Altitude  =  alt;  } 


/*★****★******★***********★*************/ 
/*  GET  LATITUDE  DEGREE  */ 

/******************★★*******************/ 
int  Aircraft: iGetLatitudeDegree ( ) 

{  return  LatitudeDegree;  } 

/***********★**★******★*******★* 

/*  GET  LATITUDE  MINUTE 
/*****★★★*********★************* 
int  Aircraft : :GetLatitudeMinute ( 

{  return  LatitudeMinute;  } 

/******★***★*★**************★**★**★*****/ 
/*  GET  LATITUDE  SECOND  */ 

/**********************★*************★**/ 
double  Aircraft: :GetLatitudeSecond ( ) 

{  return  LatitudeSecond;  } 

/***★****★*******★**********************/ 
/*  GET  LATITUDE  HEMISPHERE  */ 

/*  LatitudeHemisphere  =  "0"  =  NORTH  */ 

/*  LatitudeHemisphere  =  "I"  =  SOUTH  */ 

/******************************★******★*/ 
int  Aircraft : : GetLatitudeHemisphere ( ) 

{  return  LatitudeHemisphere;  } 

/***************************************/ 
/*  get  LONGITUDE  DEGREE  */ 

/***★**★★★*******************★**★*******/ 
int  Aircraft : : GetLongitudeDegree ( ) 

{  return  LongitudeDegree;  } 

/***************************************/ 
/*  GET  LONGITUDE  MINUTE  */ 

/****★★★★**★********★*******★****★*★★*★★/ 
int  Aircraft : :GetLongitudeMinute ( ) 

{  return  LongitudeMinute;  } 

/★****★***★*•*******★*★**★★★***★***★**★**/ 
/*  GET  LONGITUDE  SECOND  */ 

/****★********★***★**★****★**★***★*★****/ 
double  Aircraft: iGetLongitudeSecond { ) 

{  return  LongitudeSecond;  } 

/********★*★****************************/ 
/*  GET  VELOCITY  X  */ 

/★*****★*★■*•*★*★***★*********************/ 
double  Aircraft : :GetVe loci tyX( ) 

{  return  VelocityX;  } 

/****★*********★*★★★********************/ 


********  j 
*/ 

******** ! 
) 
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/*  GET  VELOCITY  Y  */ 

/***************************************/ 
double  Aircraft : :GetVelocityY( ) 

{  return  VelocityY;  } 

/***★****★****★★*********★****★******★*★/ 
/*  GET  VELOCITY  Z  */ 

/*****★********★**★************★********/ 
double  Aircraft : :GetVelocityZ ( ) 

{  return  VelocityZ;  } 

/**★★★★****************★**★****★*****★**/ 
/*  GET  ALTITUDE  */ 

/*************★**★**★**★***********★****/ 
double  Aircraft : :GetAltitude ( ) 

{  return  Altitude;  } 
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D.2  ErrorStructure.cpp 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


MODULE  NAME: 
AUTHOR: 

DATE  CREATED: 

PURPOSE : 


COMPILER: 


Errors true ture . epp 
Captain  David  Vloedman 
July  25,  1998 

This  module  of  code  houses  the  error  structure  which 
will  be  used  to  hold  and  trap  any  error  conditions  that 
arise  during  the  operation  of  the  program. 

Borland  C++  Builder3  Standard  version 

This  compiler  should  be  used  to  compile  and  link. 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/*****★******★★*****★********************★***********★**★***************★****/ 

/**********★**★***★************★**/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/****★★*****★*****★**★*****★******/ 

# include  <vcl.h> 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

#pragma  hdrstop 

#pragma  package { smart_ini t ) 

/★**********★*★***★*★*********★***/ 


/*  USER-BUILT  LIBRARIES  */ 
/***★********★********************/ 
#include  "ErrorStructure.h" 

# include  "LaserConstants .h” 


/******★★★*******★**************★************ ^ 
/*  CREATE  THE  ErrorStructure  CONSTRUCTOR  */ 
/***★***★*******************★**************★*/ 

ErrorStructure : : ErrorStructure ( )  ; 
CriticalErrorFound(O) , 

WarningFound ( 0 ) , 

ErrorsFound ( 0 ) 

{ 

for  (int  i  =  0;  i<MAXERRORS;  i++) 

{  strepy (ModuleList [i] , "  ”); 
strepy  (ErrorList  [i]  ,  "  '' )  ; 

Severity [i]  =  0; 

} 

} 

/*****************★★**********★*********★****/ 
/*  CREATE  THE  ErrorStructure  DESTRUCTOR  */ 
/*****************************************★**/ 

ErrorStructure : : -ErrorStructure ( ) 

{ 

} 


/*************************************************************************** 
/*  ErrorStructure  MANIPULATION  FUNCTIONS 

/**★******************★*************************★********★★★*******★★******* 
/*************★★******★★*★**************************★★******★*★************★ 
/*  FUNCTION  NAME:  AddError 

/*  AUTHOR:  Captain  David  Vloedman 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
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/*  DATE  CREATED:  July  25,  1998  */ 
/*  */ 
/*  PURPOSE:  This  function  is  used  to  record  an  error  into  the  error  */ 
/*  structure.  */ 
/****★*★*****★**★*****★***★***************★***★**********★*★*★*★****★★*★**★**/ 
void  ErrorStructure : : AddError (char  moduleName [MAXNAMELENGTH] , 

char  description [MAXMESSAGELENGTH] , 
int  severity) 


/*********★***,****************★★*******★*******/ 

/*  MAKE  CERTAIN  THAT  WE  ARE  NOT  ADDING  MORE  */ 

/*  ERRORS  THAN  THE  MAX  ALLOWED  */ 

/************★************★***★**************★*/ 

{  if  (ErrorsFound  <  (MAXERRORS  -1)) 

{ 

strcpy (ModuleList [ErrorsFound] .moduleName) ; 
strcpy (ErrorList [ErrorsFound] , description) ; 

Severity [ErrorsFound]  =  severity; 
if  (severity  ==  1) 

CriticalErrorFound  =  1; 

else 

WarningFound  =  1 ; 

ErrorsFound  =  ErrorsFound  +  1; 

} 

/******★************★**********************/ 

/*  IF  THERE  HAVE  ALREADY  BEEN  TOO  MANY  */ 

/*  ERRORS,  SAY  SO  IN  THE  LAST  ERROR  IN  */ 

/*  THE  LIST  */ 

/************★*******★*★*★*****************/ 
else 
{ 

strcpy (ModuleList [MAXERRORS  -  1] , "Main  Project"); 
strcpy (ErrorList [MAXERRORS  -  1], 

"Too  Many  Errors!  Max  number  of  errors  Exceeded!"); 
. Severity [MAXERRORS  -  1]  =  1; 

} 

} 


/*  RECORD  ERROR. . .  */ 

/*****★****★*★******  j 


/***************★***★********★*****★*★★***★*★********************************/ 
/*  FUNCTION  NAME:  GrabError  */ 

/*  AUTHOR:  Captain  David  Vloedman  */ 

/*  DATE  CREATED:  July  25,  1998  */ 

/*  */ 
/*  PURPOSE:  This  function  is  used  to  retrieve  an  error  that  has  been*/ 

/*  previously  added  to  the  error  structure.  This  routine  */ 

/*  asks  for  the  "number"  of  the  error  to  grab  (in  order  of  */ 

/*  when  it  was  encountered)  and  grabs  the  information  */ 

/*  associated  with  that  error.  */ 


/★****★*****************************************************★****************/ 
void  ErrorStructure : : GrabError ( int  number , 

char  moduleName[MAXNAMELENGTH]  , 
char  description [MAXMESSAGELENGTH] , 
int  ficseverity, 
int  Scfound) 

/*★**********★************************/ 

/*  MAKE  CERTAIN  THAT  THE  ERROR  THAT  */ 

/*  IS  CALLED  FOR  ACTUALLY  EXISTS  */ 

/*****★*************★★***★***********★/ 

{  if  (number  <=  ErrorsFound) 
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{ 

strcpy (moduleName,  ModuleList [number -1] ) ; 
strcpy (description,  ErrorList [number-1] ) ; 
severity  =  Severity [number- 1] ; 
found  =  1; 

} 

else 

/***********************★★*★******★****/ 

/*  OTHERWISE  TELL  USER  THAT  ERROR  */ 

/*  DOES  NOT  EXIST  */ 

/★*************************************/ 

{ 

strcpy (moduleName, "Unknown" ) ; 
strcpy (description, "Unknown") ; 
severity  =  0; 
found  =  0; 

} 


/* 

FUNCTION  NAME: 

CriticalError 

*/ 

/* 

AUTHOR: 

Captain  David  Vloedman 

*/ 

/* 

DATE  CREATED: 

July  25,  1998 

/* 

*/ 

/* 

PURPOSE : 

This  function  is  used  to 

determine  if  a  critical 

(fatal)*/ 

/* 

error  has  been  detected 

and  recorded  yet . 

*/ 

/* 

CriticalErrorFound  =  1  - 

->  TRUE 

*/ 

/* 

CriticalErrorFound  =  0  - 

->  FALSE 

*/ 

/* 

*/ 

/*******★****★****★*★******★***★**★**★***★*★********★***★********★*★**★******/ 

int 

ErrorStructure : 

: CriticalError { ) 

{  return  CriticalErrorFound;  } 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


********************************************/ 


*  FUNCTION  NAME : 

*  AUTHOR : 

*  DATE  CREATED: 

* 

*  PURPOSE : 

* 

* 

* 

* 


WarningError  * / 
Captain  David  Vloedman  */ 
July  25,  1998  */ 

*/ 

This  function  is  used  to  determine  if  a  warning  (non-  */ 
fatal)  error  has  been  detected  and  recorded  yet.  */ 
WarningFound  =  1  — >  TRUE  */ 
WarningFound  =  0  — >  FALSE  */ 

*/ 


int  Errors true ture : : WarningError ( ) 
{  return  WarningFound;  } 


/* 

FUNCTION  NAME: 

TotalErrors 

*/ 

/* 

AUTHOR: 

Captain  David 

Vloedman 

*/ 

/* 

DATE  CREATED: 

July  25,  1998 

*/ 

/* 

*/ 

/* 

PURPOSE : 

This  function 

is  used  to  determine  how  many  errors 

total*/ 

/* 

have  occurred 

and  been  recorded. 

*/ 

/* 

ErrorsFound  = 

Total  niomber  of  errors . 

*/ 

/* 

*/ 

/********************★*★★★*:*:★*★*★**★************★****★***★************★******/ 
int  ErrorStructure: :TotalErrors ( ) 

{  return  ErrorsFound;  } 


211 


/************************************************************ *★**************/ 
/*  FUNCTION  NAME:  CreateDisplayText  */ 

/*  AUTHOR:  Captain  David  Vloedman  */ 

/*  DATE  CREATED:  July  25,  1998  */ 

/*  */ 

/*  PURPOSE:  This  function  is  used  to  create  a  simple  array  of  */ 

/*  character  arrays  which  hold  all  of  the  information  */ 

/*  held  in  the  error-structure.  This  two-dimensional  */ 

/*  text  array  may  have  messages  as  long  as  MAXMESSAGELENGTH*/ 

/*  and  can  hold  MAXERRORS  messages.  */ 

f*  */ 


/****************************************************************************/ 
void  CreateDisplayText (ErrorStructure  &errors, 

char  text [MAXERRORS] [MAXMESSAGELENGTH]) 

{ 

int  i; 

int  NumErrors  =  0; 
int  severe  =  0; 
int  found  =  0; 

char  module  [MAXNAMELENGTH]  =  ” 
char  desc [MAXMESSAGELENGTH]  =  "  " ; 
char  buff [MAXMESSAGELENGTH]  =  "  ” ; 


NiamErrors  =  errors  .TotalErrors  ()  ; 
/******************************************/ 

/*  GO  THROUGH  EACH  ERROR  */ 

/*********★**************★**★*★*****★*****★/ 
for  (i  =  1;  i  <=  NumErrors;  i++) 

{ 

/*********************★***★****************/ 

/*  GRAB  INFO  FOR  EACH  ERROR  */ 

/******************************************/ 

errors . GrabError ( i ,  module,  desc,  severe,  found); 

if  (found) 

{ 

/************★*********★**★**************★*/ 

/*  IF  THE  ERROR  IS  A  FATAL  ERROR. . .  */ 

/*************★★***************************/ 
if  (severe) 

{ 

strcpy (buff , "Fatal  Error:  ” ) ; 
strcat (buff , module) ; 
s treat (buff :  ”); 
strcat (buff , desc) ; 
strepy (text [i-1] ,buff) ; 

} 

/**********★**★*******★**★*****************/ 

/*  OTHERWISE  IF  THE  ERROR  IS  A  WARNING...*/ 
/*★*★★*****•**★*************★★**************/ 
else 
{ 

s  tr cpy ( buf  f , " Warning :  ”); 

strcat (buff , module) ; 
strcat (buff, " :  " ) ; 
strcat (buf f, desc) ; 
strepy (text [i-1] ,buff) ; 

} 

} 

else 
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} 


strcpy (text [i-1] , "Warning:  Error  list  not  found."); 
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D.3  EvaluateEphemerisModules.cpp 


/*  MODULE  NAME:  EvaluateEphemerisModules.cpp 
*/ 

/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  August  18,  1998  */ 
/*  */ 
/*  PURPOSE:  This  set  of  modules  supports  the  preprocessor  and  are  */ 
/*  used  to  evaluate  whether  or  not  the  satellite  is  ever  */ 
/*  above  the  platform  horizon.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  BuilderS  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/*******************★*********★*********************************★************/ 

/**★★*****★***********★★**★***★***/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 
y*********************  **********^ 

# inc lude  < vc 1 . h> 

#pragma  hdrstop 

#pr agma  package ( smar t_ini t ) 

/*★**★****************************/ 

/*  USER-BUILT  LIBRARIES  */ 

/★★*********************:fc^*********/ 

#include  "TimeModules .h" 

# inc lude  "TLEInput .h" 

#include  "LaserConstants .h” 

#include  " Satellite. h" 

#include  "Aircraft .h" 

# include  " Error Structure.h” 

#include  "EvaluateEphemerisModules .h” 

#include  " SGP4SupportModules . h " 

/*********************************/ 

/*  C  STANDARD  LIBRARIES  */ 

/*********************************/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

# inc lude  <math,h> 

/★***★******★*★******★****************************★-*******★**********★****★**/ 
/***********************  FUCTIONS  ***★*********★*******★*******/ 

/******★**★*★****★★*★*********************★**********★★★*★★**★*****★****★****/ 

/**★**★★********★****★★***************************★*★***★********************/ 


/* 

FUNCTION  NAME: 

Evalua t eEphemer i s 

*/ 

/* 

AUTHOR: 

Captain  David  Vloedman 

*/ 

/* 

DATE  CREATED: 

Sept  19,  1998 

*/ 

/* 

*/ 

/* 

PURPOSE : 

This  function  will  take 

the  position  of  the  aircraft  and*/ 

/* 

the  orbital  elements  of 

the  satellite  and  calculate 

*/ 

/* 

whether  or  not  the  satellite  ever  comes  into  view  (or 

*/ 

/* 

above  the  horizontal  horizon)  of  the  the  aircraft. 

*/ 

/* 

*/ 

/* 

INPUTS : 

NAME: 

DEFINITION: 

*/ 

/* 

Sat 

Holds  all  ephemeris  information 

*/ 

/* 

for  the  Satellite  being  studied 

*/ 

/* 

ABLPlatform 

Holds  all  information  about  ABL 

*/ 

/* 

Platform  position/disposition 

*/ 
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/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*  OUTPUTS: 
/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


JulianDate 

TimeToNextRun 


ThetaGInRadians 


NAME: 

SatelliteInView 


OrbitInView 


SatX 

SatY 

SatZ 

SatXdot 

SatYdot 

SatZdot 

Inclination 

RightAscension 

Eccentricity 

ArgumentOf Perigee 

Mean  Anomaly 

Delta 


Dvector 


TimeToRise 


CriticalRadius 


SatRadius 


ErrorList 


The  time  to  which  the  position  */ 
of  sat  should  be  propagated  to  */ 
The  amount  of  time  for  which  the*/ 


current  run  must  last.  This  is  */ 
To  determine  how  much  time  in  */ 
seconds  will  transpire  before  */ 
next  update  is  received,  */ 
The  angle  between  the  Greenwich  */ 
Meridian  and  the  Vernal  Equinox  */ 
at  JulianDate.  */ 
DESCRIPTION:  */ 
If  the  Satellite  is  visible  to  */ 
the  ABLPlatform  (over  the  */ 
artificial  horizon  of  the  */ 
aircraft.  1  =  "yes",  0  =  "no"  */ 
Is  the  satellite  ever  above  the  */ 
horizon  plain  of  the  platform?  */ 


(IE,  is  the  orbit  itself,  regard*/ 


less  of  the  satellite  present  */ 
position,  it  view?  YES=1,  NO=0.  */ 
X  axis  pos  in  ECI  frame  at  Jul  */ 
date  */ 
Y  axis  pos  in  ECI  frame  at  Jul  */ 
date  * / 
Z  axis  pos  in  ECI  frame  at  Jul  */ 
date  * / 
Velocity  vector  in  X  direction  */ 
Velocity  vector  in  Y  direction  */ 
Velocity  vector  in  Z  direction  */ 
Inclination  at  Julian  Date  */ 
Right  Ascension  at  Julian  Date  */ 
Eccentricity  at  Julian  Date  */ 
Arg  of  Perigee  at  Julian  Date  */ 


The  Mean  Anomanly  at  Julian  Date*/ 
The  amount  of  time  in  seconds  */ 
that  has  transpired  between  the  */ 
actual  ephemeris  measurements  */ 
and  the  Julian  Date  propagated  */ 
This  is  the  magnitude  of  the  */ 
satellite  radius  vector  (the  */ 
vector  from  earth  center  to  the  */ 
satellite)  in  the  direction  of  */ 
the  Platform  radius  vector.  IE  */ 
the  component  of  the  sat  radius  */ 
vector  in  the  Platform  radius  */ 
direction.  This  is  used  to  show*/ 
how  close  the  sat  is  to  rising  */ 
above  the  artificial  horizon.  */ 
Estimated  time  before  the  sat  */ 
rises  above  the  platform's  */ 
artificial  horizon.  */ 
The  Radial  component  which  tells*/ 
the  minimum  distance  an  object  */ 
must  be  before  it  lies  above  the*/ 
artificial  horizon  of  the  */ 
platform.  */ 
The  Radial  altitude  of  the  sat  */ 
wrt  the  platform  altitude.  This*/ 
is  compared  to  the  critical  rad  */ 
to  determine  if  the  sat  lies  */ 
above  or  below  the  platform  */ 
artificial  horizon.  */ 
The  Errors  which  have  occurred  */ 
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/*  */ 

/*  COMPILER:  Borland  C++  BuilderS  Standard  version  */ 

/*  This  compiler  should  be  used  to  compile  and  link.  */ 

/*  */ 


/****★****★*******★************★**★*★********************★***★*★***★********★/ 
void  EvaluateEphemeris {  struct  Satellite  &Sat, 

struct  Aircraft  ScPlatform, 
double  ThetaGInRad, 
double  JulianDate, 
double  TimeToNextRun, 
int  ficSatelliteInView, 

int  ficOrbitlnView, 

double  ScSatX, 
double  ScSatY, 
double  ScSatZ, 
double  ScSatXdot/ 
double  &SatYdot, 
double  &SatZdot, 
double  &Delta; 
double  Sclnclination, 
double  &RightAscension, 
double  ScEccentricity, 
double  &MeanMotion, 
double  ficArgumentOf Peri gee, 
double  &MeanAnomaly, 
double  &Dvector, 
double  ScTimeToRise, 
double  ScCriticalRadius , 
double  &SatRadius, 

ErrorStructure  &ErrorList) 

■{ 

double  Latitude; 
double  Longitude; 
double  LatInRadians ; 


double  LonInRadians ; 


double  Raircraf tECF [ 3 ] ; 
double  Raircraf tECI [3 ] ; 
double  VaircraftECF[3] ; 
double  Vaircraf tECI [3 ] ; 
double  Aircraf tRadius ; 
double  MagnitudeRaircraf tECI; 
double  UnitRaircraf tECI [3] ; 
double  RsatECI [ 3 ] ; 
double  VsatECI[3] ; 
double  Change InD; 

char  buffer [MAXMESSAGELENGTH]  = 
Satellite  *CurrentSat; 

CurrentSat  =  new  Satellite; 


/★***★★**★**★************★**************************/ 

/*  ERROR  CHECK  EACH  INPUT  PARAMETER  FOR  ERRORS  */ 
/************************★**************************/ 
if  ( Platform, GetAltitude ( )  <  0) 

{  ,  spr int f (buffer, "ABL  Platform  Altitude  is  very  low  ->  %d" , 
Platform. GetAltitude ( ) ) ; 

ErrorList . AddError ( " EvaluateEphemeris " , 
buffer, 

0); 

} 

if  ( (Platform. GetLatitudeHemisphere ( )  !=  0)  && 

( Platform. GetLatitudeHemisphere ( )  !=  1)) 

{  ErrorList .AddError ( "EvaluateEphemeris " , 
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"Latitude  Hemisphere  must  be  north(N)  or  south{S)" 
1) ; 

} 

if  { Plat form.Ge that i tudeDegree ( )  <  0) 

{  sprintf (buffer, "Platform  Latitude,  %d,  must  be  positive", 

Platform. GetLatitudeDegree ( ) ) ; 

ErrorList . AddError ( "EvaluateEphemeris " , 
buffer, 

1); 

} 

if  ( Platform. GetLatitudeDegree ( )  >  90) 

{  sprintf (buffer , "Platform  Latitude,  %d,  must  be  less  than  90  degrees". 
Platform. GetLatitudeDegree ( ) ) ; 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1)  ; 

} 

if  ( Platform. GetLatitudeMinute ( )  <  0) 

{  sprintf (buffer, "Platform  Latitude  minutes,  %d,  must  be  positive", 
Pla.tform.GetLatitudeMinute()); 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1); 

} 

if  (Platform.GetLatitudeMinute ( )  >  60) 

{  sprintf (buffer, "Platform  Latitude  minutes,  %d,  must  be  less  than  60", 
Platform.GetLatitudeMinuteO ) ; 

ErrorList .AddError ( "EvaluateEphemeris" , 
buffer, 

1)  ; 

} 

if  ( Platform. GetLatitudeSecond ( )  <  0) 

{  sprintf (buffer, "Platform  Latitude  seconds,  %d,  must  be  positive", 
Platform.GetLatitudeSecondO); 

ErrorList .AddError ( "EvaluateEphemeris" , 
buffer, 

1)  ; 

} 

if  (Platform.GetLatitudeSecondO  >  60) 

{  sprintf (buffer, "Platform  Latitude  seconds,  %d,  must  be  less  than  60", 
Platform.GetLatitudeSecondO ) ; 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1)  ; 

} 

if  ( Platform. GetLongitudeDegree 0  <  0) 

{  sprintf (buffer, "Platform  Longitude  Deg,  %d,  must  be  positive  deg  East" 
Platform.GetLongitudeDegreeO ) ; 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1); 

} 

if  (Platform.GetLongitudeDegreeO  >  360) 

{  sprintf (buffer , "Platform  Longitude  Deg,  %d,  must  be  <  360", 

Platform. GetLongitudeDegree () ) ; 

ErrorList .AddError ( "EvaluateEphemeris" , 
buffer, 

1); 

) 

if  ( Platform. GetLongitudeMinute 0  <  0) 

C  sprintf (buffer, " Platform  Longitude  Min,  %d,  must  be  positive". 

Platform. GetLongitudeMinute 0 ) ; 

ErrorList .AddError ( "EvaluateEphemeris " , 
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buffer, 

1)  ; 

} 

if  ( Platform. GetLongitudeMinute ( )  >  60) 

{  sprintf (buffer , "Platform  Longitude  Min,  %d,  must  be  <  60", 
Platform. GetLongitudeMinute ( ) ) ; 

ErrorList . AddError ( "EvaluateEphemeris " , 
buffer, 

1)  ; 

} 

if  {Platform.GetLongitudeSecond( )  <  0) 

{  sprintf (buffer , "Platform  Longitude  Sec,  %d,  must  be  positive", 

Platform.GetLongitudeSecond( ) ) ; 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1)  ; 

} 

if  ( (Platform. GetVelocityX ( )  ==  0.0)  && 

( Platform. GetVelocityY ( )  ==  0.0)  && 

( Platform. GetVelocityZ ( )  ==0.0)) 

{  sprintf (buffer, "Platform  is  not  moving,  velocity  is  zero"); 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

0); 

} 

if  (Sat .GetRightAscension ( )  <  0) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  negative  Right  Ascension" 
Sat . GetSSCNumber ()); 

ErrorList .AddError ( "EvaluateEphemeris" , 
buffer, 

1); 

} 

if  (Sat .GetRightAscension( )  >  360) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  Right  Ascension  >  360  deg 
Sat . GetSSCNumber ()); 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1)  ; 

} 

if  (Sat .GetEpochDay ( )  <  0) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Epoch  Day  <  0", 

Sat .  GetSSCNiimber  ( )  )  ; 

Err orL i s  t . AddError ( " Eva lua t eEphemer i s " , 
buffer, 

1)  ; 

} 

if  ( Sat . GetEpochDay ( )  >  366) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Epoch  Day  >  366", 

Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1); 

} 

if  (Sat.GetEpochYear 0  <  1950) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Epoch  Year  <  1950!", 
Sat . GetSSCNumber ()); 

ErrorList . AddError ( " EvaluateEphemeris " , 
buffer, 

0)  ; 

} 

if  (Sat .GetMeanAnomaly ( )  <  0) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  a  Mean  Anomaly  <•  0", 

Sat . GetSSCNumber ( ) ) ; 


218 


} 

if 

{ 


ErrorList . AddError ( "EvaluateEphemeris " , 
buffer, 

1); 

(Sat .GetMeanAnomaly ( )  >  360) 

sprintf (buffer, "Satellite  SSC:  %d,  has  a  Mean  Anomaly  >  360  deg". 

Sat .  GetSSCNiamber  ()); 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1)  ; 

} 

if  (Sat.GetInclination( )  <  0) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Inclination  <  0", 

Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1)  ; 

) 

if  (Sat.GetInclination( )  >  180) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Inclination  >  180  deg". 

Sat . GetSSCNumber ()); 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1); 

} 

if  (Sat.GetEccentricity ( )  <  0) 

{  sprintf (buffer , "Satellite  SSC:  %d,  has  an  Eccentricity  <  0",  ' 

Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1)  ; 

} 

if  (Sat .GetEccentricity ( )  >=  1) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Eccentricity  >  1.0", 

Sat .GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1)  ; 

} 

if  (Sat .Get Argument© f Peri gee ( )  <  0) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Argument  of  Perigee  <  0", 

Sat . GetSSCNumber ()); 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1)  ; 

} 

if  (Sat .GetArgumentOf Perigee ( )  >  360) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Argument  of  Per  >  360  deg". 
Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1)  ; 

} 

if  (Sat.GetMeanMotionO  <=  0) 

{  sprintf (buffer, "Mean  Motion  <=  0.0  for  Satellite  SSC:  %d" , 

Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "EvaluateEphemeris " , 
buffer, 

1)  ; 

} 

if  (TimeToNextRun  <=  0.0) 

{  ErrorList .AddError ( "EvaluateEphemeris" , 

"The  time  until  the  next  run  cannot  be  <=  0.0  sec". 
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1); 


} 

if  (TimeToNextRun  >  300.0) 

{  ErrorList . AddError ( "EvaluateEphemeris " , 

"HIGHLY  RECOMMEND  that  Preprocessor  be  run  at  LEAST  every  300  seconds." 


/************************★*********★***★********★/ 
/*  INITIALIZE  OUTPUT  VARIABLES  */ 

/***************************★********★****★******/ 
SatelliteInView  =  0; 

OrbitInView  =  0; 

SatX  =  0.0; 

SatY  =  0.0; 

SatZ  =  0.0; 

SatXdot  =0.0; 

SatYdot  =  0.0; 

SatZdot  =  0.0; 

Delta  =  0.0; 

Inclination  =  0.0; 

RightAscension  =  0.0; 

Eccentricity  =  0.0; 

MeanMotion  =  0.0; 

ArgumentOf Perigee  =  0.0; 

MeanAnomaly  =  0.0; 

Dvector  =  0.0; 

TimeToRise  =  0.0; 

CriticalRadius  =  0.0; 

SatRadius  =  0.0; 


/**★********★***********★*★★*★★*★**★★****★*******/ 
/*  BEGIN  CALCULATIONS  UNLESS  CRITICAL  ERROR  */ 
/****★*************************************★★**★*/ 
if  (ErrorList . CriticalError ( ) ) 
return; 

/************************************************/ 


/*  FIND  LAT  AND  LON  IN  RADIANS  */ 
/*  NOTE  THAT  -LAT  =  SOUTHERN  LATITUDE  */ 
/*  LatitudeHemisphere  =  "0"  =  NORTH  LAT  */ 
/*  LatitudeHemisphere  =  "1"  =  SOUTH  LAT  */ 


/************★*★***************★*********★*★*****/ 
Latitude  =  ( Platform. GetLatitudeDegree () )  + 

( Platform. GetLatitudeMinute ( ) /60 .0)  + 

( Platform. GetLatitudeSecond ( ) /3600 . 0) ; 
LatInRadians  =  Latitude  *  DEGTORADIANS ; 
if  ( Platform. GetLatitudeHemisphere ( )  ==  1) 
LatInRadians  =  -LatInRadians; 


if  (Latitude  <  -90.0) 

{  ErrorList .AddError ( "EvaluateEphemeris" , 

"Latitude  of  platform  is  more  than  90  deg  south 
1)  ; 

} 

if  (Latitude  >  90.0) 

{  ErrorList .AddError ( "EvaluateEphemeris " , 

"Latitude  of  platform  is  more  than  90  deg  north 
1)  ; 

} 


Longitude  =  ( Platform. GetLongitudeDegree () )  + 
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( Platform. GetLongitudeMinute  0/60.0)  + 

( Platform. GetLongitudeSecond ( ) /3600 . 0) ; 
LonInRadians  =  Longitude  *  DEGTORADIANS; 
if  (Longitude  >  360.0) 

{  ErrorList . AddError ( "EvaluateEphemeris ” , 

"Longitude  of  platform  is  >  360  deg 

1)  ; 


/* 

CONVERT  LATITUDE, 

LONGITUDE 

AND  ALTITUDE 

*/ 

/* 

POSITION  OF  THE  AIRCRAFT  TO 

A  RADIAL  VECTOR*/ 

/* 

IN  THE  EARTH -CENTERED  EARTH- 

-FIXED  COORD. 

*/ 

/* 

FRAME 

*/ 

/* 

Raircraf tECF [ 0 ] 

=  X 

*/ 

/* 

RaircraftECF[l] 

=  Y 

*/ 

/* 

Raircraf tECF [2 ] 

=  Z 

*/ 

/******★*************★********★*********★******★*/ 

Aircraf tRadius  =  EARTHRADIUS  +  Platform. GetAltitude () ; 

RaircraftECFEO]  =  Aircraf tRadius  * 

cos (LatInRadians)  * 
cos (LonInRadians) ; 

Raircraf tECF [1]  =  Aircraf tRadius  * 

cos (LatInRadians)  * 
sin (LonInRadians) ; 

Raircraf tECF [2 ]  =  Aircraf tRadius  * 

sin (LatInRadians)  ; 


/************************************************/ 


/*  CONVERT  EARTH-CENTERED  EARTH-FIXED  COORD.  */ 
/*  FRAME  TO  EARTH-CENTERED- INERTIAL  BY  USING  */ 
/*  THETA-G  AS  THE  ROTATION  ANGLE.  */ 
/*  Raircraf tECI[0]  =  X  */ 
/*  Raircraf tECI [1]  =  Y  */ 
/*  Raircraf tECI [2]  =  Z  */ 


/************************************************/ 

Raircraf tECI [0]  =  Raircraf tECF [0]  *  cos (ThetaGInRad)  - 
RaircraftECF[l]  *  sin (ThetaGInRad) ; 
Raircraf tECI [1]  =  Raircraf tECF [0]  *  sin (ThetaGInRad)  + 
Raircraf tECF [1]  *  cos (ThetaGInRad) ; 
Raircraf tECI [2]  =  Raircraf tECF [2]; 


/*  FIND  VELOCITY  OF  THE  AIRCRAFT  VECTOR  */ 
/*  IN  THE  EARTH-CENTERED  EARTH-FIXED  COORD.  */ 
/*  FRAME  */ 
/*  VaircraftECF[0]  =  Xdot  */ 
/*  VaircraftECF[l)  =  Ydot  */ 
/*  VaircraftECF[2]  =  Zdot  */ 


/************************************************/ 
VaircraftECF[0]  =  Platform. GetVelocityX () ; 
VaircraftECF[l]  =  Platform.GetVelocityY( ) ; 
VaircraftECF[2]  =  Platform.GetVelocityZ ( ) ; 

/*********************■>!**************************/ 


/*  CONVERT  EARTH-CENTERED  EARTH-FIXED  COORD.  */ 
/*  FRAME  TO  EARTH-CENTERED- INERTIAL  BY  USING  */ 
/*  THETA-G  AS  THE  ROTATION  ANGLE.  NOTE  THAT  */ 
/*  THIS  CAPTURES  THE  ROTATION  OF  THE  EARTH  */ 
/*  UNDERNEATH  THE  PLANE.  */ 
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/*  VaircraftECI[0]  =  Xdot  */ 
/*  Vaircraf tECI [1]  =  Ydot  */ 
/*  Vaircraf tECI [2]  =  Zdot  */ 
/*  THE  UNITS  HERE  IN  THE  ECI  FRAME  ARE:  */ 
/*  KILOMETERS  *  RADIANS  /  HOURS  */ 


/************★**********************★************/ 

VaircraftECI[0]  =  Vaircraf tECF [0]  *  cos (ThetaGInRad)  - 
VaircraftECF [1]  *  sin (ThetaGInRad)  - 
RaircraftECI[l]  *  TWOPI/ (SECSSIDEREALDAY/3600) ; 
Vaircraf tECI [1]  =  Vaircraf tECF [0]  *  sin (ThetaGInRad)  + 

VaircraftECF [1]  *  cos (ThetaGInRad)  + 

RaircraftECI[0]  *  TWOPI/ (SECSSIDEREALDAY/3600) ; 
Vaircraf tECI [2]  =  Vaircraf tECF [2 ] ; 

/*************************************************/ 

/*  FIND  THE  UNIT  VECTOR  IN  THE  DIRECTION  OF  THE  */ 

/*  PLATFORM  POSITION  VECTOR.  THIS  IS  USED  TO  */ 

/*  THE  MAGNITUDE  OF  COMPONENTS  OF  OTHER  VECTORS  */ 

/*  IN  THE  DIRECTION  OF  THE  PLATFORM  POSITION  */ 

/*  VECTOR.  */ 

/★**★*****★************★**★****************★★★****/ 

MagnitudeRaircraftECI  =  sqrt (pow(RaircraftECI [0] , 2)  + 

pow(RaircraftECI [1] , 2)  + 
pow(Raircraf tECI [2 ] , 2 ) ) ; 

if  (MagnitudeRaircraftECI  !=  0.0) 

{ 

Uni tRaircraf tECI [0]  =  Raircraf tECI [0 ]  /  MagnitudeRaircraftECI; 

Uni tRaircraf tECI [1]  =  Raircraf tECI [1]  /  MagnitudeRaircraftECI; 
UnitRaircraftECI [2]  =  Raircraf tECI [2 ]  /  MagnitudeRaircraftECI; 

} 

else 

{  ErrorLis t .  AddError  ( ''  EvaluateEphemer is " , 

"Magnitude  of  aircraft  position  vector  is  0.0” 

1); 

} 


/*********★****★************************★*********/ 

/*  FIND  THE  POSITION  AND  VELOCITY  VECTORS  OF  THE*/ 

,  /*  SATELLITE  FOR  THE  GIVEN  PROPAGATION  TIME  */ 

/*  (WHICH  IS  STORED  IN  ” JulianDate" ) .  */ 

/*  NOTE:  SGP4  CANNOT  HANDLE  A  PERFECTLY  ROUND  */ 

/*  EPHEMERIS  (IE  Eccentricity  CANNOT  EQUAL  0.0  */ 

/★**★**********************★**********************/ 

if  (Sat .GetEccentricity ( )  ==  0) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Eccent  =  0.0,  SGP4  Error 
Sat . GetSSCNumber ()); 

ErrorLis t .AddError ( "EvaluateEphemer is" , 
buffer, 

1)  ; 

return; 

} 

CallSGP4(Sat, 

JulianDate, 

SatX, 

SatY, 

SatZ, 

SatXdot, 

SatYdot, 

SatZdot, 

Inclination, 

RightAscension, 

Eccentricity, 
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MeanMotion, 
ArgumentOf Perigee , 
MeanAnomaly, 

Delta, 

ErrorList) ; 


/************************************************/ 
/*  CONTINUE  UNLESS  CRITICAL  ERROR  */ 

/************************************************/ 
if  (ErrorList. CriticalError () ) 
return; 

/*************************************************/ 
/*  HERE,  I  AM  SIMPLY  MOVING  THE  PARAMETERS  TO  */ 
/*  A  MATRIX.  THIS  COULD  HAVE  BEEN  DONE  WITH  A  */ 
/*  LOT  OF  SHORTCUTS,  BUT  I  DO  IT  THIS  LONG  WAY  */ 
/*  TO  ENHANCE  READABILITY  OF  THE  PROGRAM  AS  MUCH*/ 
/*  AS  POSSIBLE.  */ 

/*************************************************/ 


RsatECI [0] 

= 

SatX; 

RsatECI [1] 

= 

SatY; 

RsatECI [2] 

= 

SatZ; 

VsatECKO] 

SatXdot; 

VsatECI[l] 

= 

SatYdot; 

VsatECI[2] 

= 

SatZdot ; 

/*  THE  Dvector  IS  THE  COMPONENT  OF  THE  SAT  */ 
/*  POSITION  VECTOR  IN  THE  PLATFORM  POSITION  */ 
/*  VECTOR  DIRECTION.  THIS  IS  USED  TO  SEE  HOW  */ 
/*  CLOSE  THE  SATELLITES  POSITION  COMPARES  TO  */ 
/*  THE  PLATFORM’S  ARTIFICIAL  HORIZON,  WHICH  IS  */ 
/*  SIMPLY  THE  PLANE  PERPENDICULAR  TO  THE  */ 
/*  PLATFORM  POSITION  VECTOR.  (ASSUME  STRAIGHT  */ 
/*  AND  LEVEL  FLIGHT) .  */ 


/*************************************************/ 
Dvector  =  RsatECI[0]  *  UnitRaircraf tECI [0]  + 
RsatECIEl]  *  UnitRaircraftECI [1]  + 
RsatECIt2]  *  UnitRaircraftECI [2] ; 

/*************************************************/ 
/*  IF  THE  Dvector  IS  HAS  GREATER  LENGTH  THAN  THE*/ 
/*  PLATFORM  POSITION  VECTOR,  THEN  WE  KNOW  THAT  */ 
/*  THE  SATELLITE  LIES  ABOVE  THE  PLATFORM'S  */ 

/*  ARTIFICIAL  HORIZON,  AND  IS  THEREFORE  IN  VIEW  */ 
/*  (LINE-OF-SIGHT)  OF  THE  PLATFORM.  */ 

/*************************************************/ 

if  (Dvector  >=  Aircraf tRadius) 

{  SatelliteInView  =  1; 

OrbitInView  =  1; 

TimeToRise  =  0.0; 

} 

else 

/*************************************************/ 
/*  IF  THE  PLATFORM  IS  NOT  YET  IN  VIEW,  THEN  */ 

/*  DETERMINE  WHEN,  IF  EVER,  THE  PLATFORM  DOES  */ 

/*  COME  INTO  VIEW.  IF  THE  SATELLITE  IS  ABOUT  */ 
/*  TO  COME  INTO  VIEW  BEFORE  THE  " TimeToNextRun "  */ 
/*  OF  ■THE  Preprocessor,  THEN  INCLUDE  THIS  SAT  */ 
/*  AS  BEING  IN  VIEW.  */ 

Z*************************************************/ 
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{  SatelliteInView  =  0; 
OrbitInView  =  0; 


/★it***********************************************/ 

/*  LOAD  ANOTHER  Satellite  DATA  STRUCTURE  WITH  */ 

/*  THE  CURRENT  EPHEMERIS  INFORMATION  GLEANED  */ 

/*  THE  TIME  PROPAGATOR  (Sgp4)  AND  FEED  IT  TO  */ 

/*  CompareOrbit  TO  SEE  IF  THE  CURRENT  ORBIT  */ 

/*  WILL  CROSS  THE  HORIZON  OF  THE  PLATFORM  */ 

/******★★★***★★★***★****************************★*/ 

CurrentSat~>SetInclination (Inclination) ; 

CurrentSat->SetRightAscension (RightAscension) ; 

CurrentSat“>SetEccentricity (Eccentricity) ; 

CurrentSat->SetArgumentOf Perigee (ArgumentOf Perigee) ; 

CurrentSat->SetMeanAnomaly (MeanAnomaly) ; 

MeanMotion  =  MeanMotion  *  MINUTESPERDAY  /  TWOPI; 

CurrentSat->SetMeanMotion (MeanMotion) ; 

CompareOrbi t ( *CurrentSat , 

Platform, 

ThetaGInRad, 

OrbitInView, 

CriticalRadius , 

SatRadius , 

ErrorList) ; 


/*************************************************/ 
/*  IF  THE  ORBIT  IS  IN  VIEW,  THEN  FIND  THE  */ 

/*  APPROXIMATE  TIME  UNTIL  THE  SATELLITE  BREAKS  */ 
/*  THROUGH  THE  HORIZON  OF  THE  PLATFORM.  THIS  */ 

/*  IS  DONE  ONLY  AS  AN  APPROXIMATION.  */ 

/********★**************★**★★*****★**********★*★★*/ 


if  (OrbitInView) 

{ 

ChangeInD  =  VsatECI[0] 
VsatECI[l] 
VsatECI[2] 
RsatECI[0] 
RsatECI[l] 
RsatECI[2] 


*  SECSPERHOUR  *  UnitRaircraf tECI [ 0 ]  + 

*  SECSPERHOUR  *  UnitRaircraf tECI [1 ]  + 

*  SECSPERHOUR  *  UnitRaircraf tECI [2 ]  + 

*  VaircraftECI [0]  /  Aircraf tRadius  + 

*  VaircraftECI [1]  /  Aircraf tRadius  + 

*  VaircraftECI [2]  /  Aircraf tRadius; 


if  (ChangeInD  !=  0.0) 

{ 

TimeToRise  =  (Dvector  -  Aircraf tRadius)  /  ChangeInD; 
TimeToRise  =  TimeToRise  *  SECSPERHOUR; 


/*******★**★**********★★***********★************★*/ 
/*  IF  THE  TimeToRise  IS  POSITIVE  (THAT  IS,  IT  IS*/ 
/*  MOVING  “TOWARDS"  THE  PLATFORM,  NOT  AWAY)  AND  */ 


/*  THE  TIME  BEFORE  THE  NEXT  RUN  OF  THE  */ 
/*  Preprocessor  IS  MORE  THAN  THE  TimeToRise,  */ 
/*  THEN  INCLUDE  THIS  SATELLITE  AS  ONE  WHICH  */ 
/*  COULD  BE  IN  VIEW  BEFORE  THE  NEXT  RUN.  */ 


/****★***★****★****★**********★★******************/ 

if  ( (TimeToNextRun  >  TimeToRise)  &&  (TimeToRise  >  0.0)) 
SatelliteInView  =  1; 

} 

else 

{  ErrorList . AddError ( " EvaluateEphemeris " , 

“ChangeInD  is  zero", 

1); 

} 
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} 

} 

return; 


} 


/****************************************************************************/ 
/*  FUNCTION  NAME:  FindThetaG  */ 

/*  AUTHOR:  Captain  David  Vloedman  */ 

/*  DATE  CREATED:  October  6,  1998  */ 


/* 

/*  PURPOSE: 
/* 

/* 

/* 

/* 

/* 

/* 

/*  INPUTS: 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*  OUTPUTS: 
/* 

/* 

/* 

/* 

/* 

/*  COMPILER: 
/* 

/* 


*/ 

This  function  will  take  a  reference  position  and  time  */ 
for  a  known  angle  between  the  Greenwich  Meridian  and  */ 
the  Vernal  Equinox,  and  propagate  the  angle  through  */ 

natural  orbit  precession  at  the  given  calculation  time.  */ 
Note  that  the  reference  time  must  always  be  BEFORE  the  */ 
calulation  time.  */ 

*/ 

NAME:  DEFINITION:  */ 

ReferenceHour  This  holds  the  value  of  Theta  G  */ 

at  RefModJulianDate .  The  angle  */ 
of  Theta  G  is  given  in  hours,  */ 
minutes,  and  seconds  instead  of  */ 
degrees,  where  24  hrs  =  360  deg  */ 
ReferenceMinute  Holds  the  minutes  of  Theta  G  at  */ 

RefModJulianDate.  */ 

ReferenceSecond  Holds  the  seconds  of  Theta  G  at  */ 

.  RefModJulianDate.  */ 

RefModJulianDate  This  is  the  reference  date  when 

an  actual  observation  of  the  */ 

true  value  of  theta  G  was  made.  */ 
CalcYear  Holds  the  current'  calender  year  */ 

Calcmonth  Holds  the  Calender  month (1  -  12)*/ 

CalcDay  Holds  calender  day  */ 

CalcHour  Holds  the  calender  hour  */ 

CalcMinute  Holds  the  calender  minute  */ 

CalcSecond  Holds  the  calender  second  */ 

*/ 

NAME:  DESCRIPTION:  */ 

ThetaGInRadians  The  angle  between  the  Greenwich  */ 

Meridian  and  the  Vernal  Equinox  */ 
at  Calc  Date.  */ 

ErrorList  The  Errors  which  have  occurred  */ 

*/ 

Borland  C++  Builder3  Standard  version  */ 

This  compiler  should  be  used  to  compile  and  link.  */ 

*/ 


/★***★★**★*★******************************★★*****★*★*************************/ 
void  FindThetaG ( int  ReferenceHour, 

int  ReferenceMinute, 
double  ReferenceSecond, 
double  RefModJulianDate, 
int  CalcYear, 
int  CalcMonth, 
int  CalcDay, 
int  CalcHour, 
int  CalcMinute, 
double  CalcSecond, 
double  ScThetaGInRadians , 

ErrorStructure  ScErrorList) 
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double  RefThetaGInDeg; 
double  CurrentModJulianDate; 
double  PropTime; 
double  PropRate; 
double  ThetaGInDeg; 
double  RefThetaGInSec; 

/*********★**************★****★***************/ 

/*  ERROR  CHECK  INCOMING  PARAMETERS  */ 

/***★*****************************************/ 
if  (ReferenceHour  <  0) 

{  ErrorList . AddError ( "FindThetaG” , 

“Theta  G  Reference  Hour  <  0”, 
1); 

} 

if  (ReferenceHour  >  24) 

{  ErrorLi s  t . AddError ( “ FindThetaG " , 

"Theta  G  Reference  Hour  >  24", 
1)  ; 

} 

if  (ReferenceMinute  <  0) 

{  ErrorList .AddError ( "FindThetaG" , 

"Theta  G  Reference  Minute  <  0" 
1)  ; 

} 

if  (ReferenceMinute  >60)  ♦ 

{  ErrorList .AddError ( "FindThetaG" , 

"Theta  G  Reference  Minute  >  60 
1)  ; 

} 

if  (ReferenceSecond  <  0) 

{  ErrorList .AddError ( "FindThetaG" , 

"Theta  G  Reference  Second  <  0" 
1)  ; 

} 

if  (ReferenceSecond  >  60) 

{  ErrorList .AddError ( "FindThetaG" , 

"Theta  G  Reference  Second  >  60 
1)  ; 

} 

if  (RefModJulianDate  <  0) 

{  ErrorList .AddError ( "FindThetaG" , 

"Reference  Julian  Date  <  0", 

1)  ; 

} 

if  (CalcYear  <  0) 

{  ErrorList .AddError ( "FindThetaG" , 

"Calculation  Year  <  0", 

1)  ; 

} 

if  (CalcYear  >  3000) 

{  ErrorList.AddError ( "FindThetaG" , 

"Calculation  Year  >  3000", 

1); 

} 

if  (CalcMonth  <  0) 

{  ErrorList.AddError ( "FindThetaG" , 

"Calculation  Month  <  0", 

1); 

} 

if  (CalcMonth  >  12) 
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{  ErrorList . AddError ( "FindThetaG" , 

"Calculation  Month  >  12", 
1); 

} 

if  (CalcDay  <  0) 

{  ErrorList .AddError ( "FindThetaG" , 

"Calculation  Day  <  0", 

1); 

} 

if  (CalcDay  >  31) 

{  ErrorList .AddError ( "FindThetaG" , 

"Calculation  Day  >  31", 

1)  ; 

} 

if  (CalcHour  <  0) 

{  ErrorList .AddError ( "FindThetaG" , 

"Calculation  Hour  <  0", 

1)  ; 

} 

if  (CalcHour  >  24) 

{  ErrorList .AddError ( "FindThetaG" , 

"Calculation  Hour  >  24", 
1); 

} 

if  (CalcMinute  <  0) 

{  ErrorList .AddError ( "FindThetaG" , 

"Calculation  Minute  <  0", 
1); 

} 

if  (CalcMinute  >  60) 

{  ErrorList .AddError ( "FindThetaG" , 

"Calculation  Minute  >  60", 
1); 

} 

if  (CalcSecond  <  0) 

{  ErrorList .AddError ( "FindThetaG" , 

"Calculation  Second  <  0", 
1)  ; 

} 

if  (CalcSecond  >  60) 

{  ErrorList .AddError ( "FindThetaG" , 

"Calculation  Second  >  60", 
1)  ; 

} 

/*★*****************★***************★★★**********/ 

/*  BEGIN  CALCULATIONS  UNLESS  CRITICAL  ERROR  */ 
/**★**********★*★*******************★*******★***★/ 

if  (ErrorList . CriticalError ( ) ) 
return; 


/★★*************★*★*********★★*****************/ 

/*  FIND  REFERENCE  THETA  G  IN  DEGREES  */ 

/★******★*****★***★******★****★**★*************/ 

RefThetaGInSec  =  ( (ReferenceHour  *  3600)  + 

(ReferenceMinute  *  60)  + 

ReferenceSecond) ; 

if  (RefThetaGInSec  >  SECSPER24HOURS) 

{  ErrorList .AddError ( "FindThetaG" , 

"Reference  Angle  Exceeds  24  hours  (360  degrees) 
1) ; 
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return; 

} 

RefThetaGInDeg  =  RefThetaGInSec  *  (360.0  /  SECSPER24HOURS) ; 

/***★***************★***★★***★**★**************/ 

/*  GET  CURRENT  JULIAN  DATE  */ 

/*★********★******★**************************★*/ 

ConvertCalenderTo Julian (CalcYear, 

CalcMonth, 

CalcDay, 

CalcHour , 

CalcMinute, 

CalcSecond, 

CurrentModJulianDate , 

ErrorList) ; 

if  (ErrorList .CriticalError( )  ) 
return; 

/**********************  **********************/ 

/*  DETERMINE  THE  PROPAGATION  TIME  */ 

/**********************************************/ 

PropTime  =  (CurrentModJulianDate  -  RefModJulianDate)  *  24  *3600;; 

if  (PropTime  <  0.0) 

{  ErrorList .AddError ( "FindThetaG” , 

"Reference  Time  should  occur  before  Calculation  Time" 
1)  ; 

return; 

} 

if  (PropTime  >  LATEREFERENCE ) 

{  ErrorList .AddError ( "FindThetaG" , 

"Ref  Time  and  Calc  Time  are  too  far  apart  to  safely  predict  ThetaG", 
0)  ; 

return; 

} 


/*  DETERMINE  THE  PROPAGATION  RATE  */ 
/*  NOTE  THAT  THE  NUMBER  OF  SECONDS  IN  A  */ 
/*  SIDEREAL  DAY  =  23  hrs  56  mins  4.09054  secs*/ 
/*  =  86164.09054  secs  */ 
/*  =  SECSSIDEREALDAY  */ 


/*********★**★***********★***★***********★*****/ 
PropRate  =  360  /  SECSSIDEREALDAY; 

/*★****************★★*********★**★★************/ 

/*  PROPAGATE  THETA  G  THROUGH  TIME  */ 

Z**********************************************/ 

ThetaGInDeg  =  RefThetaGInDeg  +  PropRate  *  PropTime; 

/★*★***★*********★*********★******★*******★*★★★/ 

/*  DIVIDE  MOD  360  DEGREES  TO  GET  CURRENT  POS  */ 
/********★*******************************★*****/ 
ThetaGInDeg  =  f mod (ThetaGInDeg,  360,0); 

/****************★**★*****★*****★**************/ 

/*  CONVERT  TO  RADIANS  */ 

/********★*************************************/ 
ThetaGInRadians  =  ThetaGInDeg  *  DEGTORADIANS ; 

return; 

} 
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/ 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


FUNCTION  NAME: 
AUTHOR: 

DATE  CREATED: 

PURPOSE : 


CompareOrbit 
Captain  David  Vloedman 
October  6,  1998 


*/ 

*/ 

This  function  will  take  the  position  of  the  aircraft  and*/ 
the  orbital  elements  of  the  satellite  and  calculate  */ 
whether  or  not  the  satellite  ever  comes  into  view  (or  */ 
above  the  horizontal  horizon)  of  the  the  aircraft.  Note*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


that  this  is  at  an  instantaneous  time.  It  does  not 
account  for  the  precession  of  the  orbit,  and  so  must 
be  run  at  regular  close  (30  minute)  intervals  to  be 
reliable  and  accurate. 


INPUTS :  NAME : 

Platform. LatitudeDegree 

Platform. LatitudeMinute 

Platform. LatitudeSecond 

Platform . LongitudeDegree 

Platform. LongitudeMinute 

Platform. LongitudeSecond 

Sat . RightAscension 

Sat . Eccentricity 

Sat . Inclination 

Sat .MeanMotion 

Sat .ArgumentOf Perigee 

Sat . MeanAnomaly 

Sat .EpochDay 

Sat . EpochYear 

ThetaGInRad 

ErrorList 

OUTPUTS:  NAME: 

CriticalRadius 


SatRadius 


DEFINITION: 

Degree  of  Latitude  (0-90  int) 
Minute  of  Latitude  (0-60  int) 
Second  of  Latitude  (0-60  float) 
Degree  of  Longitude  (0-360  int) 
Minute  of  Longitude  (0-60  int) 
Second  of  Longitude  (0-60  float)*/ 
Right  Ascension  (degrees)  */ 

Eccentricity  (float)  */ 

Inclination  (degrees)  */ 

Mean  Motion  (float)  */ 

Degrees  (0-360)  */ 

Degrees  (0-360)  */ 

Day  of  year  msrmts  taken  (float)*/ 


Calender  Year  (int) 

Angle  between  Greenwich  and 
Vernal  Equinox 
Errors  that  have  occured 


OrbitInView 


*/ 
*/ 
*/ 
*/ 
*/ 

DESCRIPTION:  */ 

The  Radial  component  which  tells*/ 
the  minimum  distance  an  object  */ 
must  be  before  it  lies  above  the*/ 
artificial  horizon  of  the  */ 

platform.  */ 

The  Radial  altitude  of  the  sat  */ 
wrt  the  platform  altitude.  This*/ 

/ 
/ 
/ 
/ 
/ 
/ 


is  compared  to  the  critical  rad 
to  determine  if  the  sat  lies 
above  or  below  the  platform 
artificial  horizon. 

Is  the  satellite  ever  above  the 
horizon  plain  of  the  platform? 

(IE,  is  the  orbit  itself,  regard*/ 
less  of  the  satellite  present  */ 
position,  it  view?  YES=1,  NO=0. 


COMPILER:  Borland  C++  Builder3  Standard  version 

This  compiler  should  be  used  to  compile  and  link. 


*/ 

*/ 

*/ 

*/ 

*/ 


/*  */ 
/********★***★***★****************★★*★***************************************/ 
void  CompareOrbit (  struct  Satellite  &Sat, 

struct  Aircraft  ScPlatform, 
double  ThetaGInRad, 
int  &OrbitInView, 
double  ScCriticalRadius , 
double  &SatRadius, 
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{ 


ErrorStructure  &ErrorList) 


double  Latitude; 
double  Longitude; 
double  LatInRadians; 
double  LonInRadians ; 
double  RAInRad; 
double  CosinePhi; 
double  InclinInRad; 
double  Phi; 
double  CosineAlpha; 
double  Alpha; 
double  Beta; 
double  D; 

double  SineOfVandWl ; 

double  VandWl; 

double  Cosine0fVandW2 ; 

double  VandW2 ; 

double  VandW; 

double  TrueAnomalyInRad; 

double  Numerator; 

double  Denominator; 

double  SemiMajorAxis; 

double  Eccentricity; 

double  Altitude; 

double  WInRad; 

double  SineD; 

double  X; 

double  Y; 

char  buffer [MAXMESSAGELENGTH]  =  "  " ; 

/**********★*★*********★***********★*★★********★****/ 

/*  ERROR  CHECK  EACH  PARAMETER  */ 

/***************iAr***********************  ************/ 

if  ( Platform. GetAltitude ( )  <  0) 

{  ErrorList . AddError ( "CompareOrbit ” , 

"Platform  Altitude  is  below  sealevel”, 

0)  ; 

} 

if  ( (Platform. GetLatitudeHemisphere ( )  !=  0)  && 

( Platform. GetLat itudeHemi sphere ( )  !=  1)) 

{  ErrorList . AddError ( ” CompareOrbit " , 

"Latitude  Hemisphere  must  be  north(N)  or  south (S) " 
1); 

} 

if  ( Platform. GetLat i tudeDegree ( )  <  0) 

{  Err orLi s  t . AddError ( " Compar eOrbi t " , 

"Latitude  degree  of  platform  must  be  positive", 

1); 

} 

if  ( Platform. GetLati tudeDegree ( )  >  90) 

{  ErrorList .AddError ( "CompareOrbit" , 

"Latitude  degree  of  platform  is  greater  than  90", 
1); 

} 

if  ( Platform. GetLat i tudeMinute ( )  <  0) 

{  ErrorList .AddError ( "CompareOrbit" , 

"Latitude  minute  of  platform  is  less  than  0", 

1)  ; 

} 

if  ( Platform. GetLatitudeMinute ( )  >  60) 

{  ErrorList .AddError ( "CompareOrbit" , 

"Latitude  minute  of  platform  is  greater  than  60", 
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1)  ; 

} 

if  (Platforin.GetLatitudeSecond( )  <  0) 

{  Err orLi s  t . AddError ( ” CompareOrbi t ” , 

"Latitude  second  of  platform  is  less  than  0", 

1)  ; 

} 

if  (Platform. GetLatitudeSecond ( )  >  60) 

{  ErrorList .AddError ( "CompareOrbit " , 

"Latitude  second  of  platform  is  greater  than  60", 
1)  ; 

} 

if  ( Platform. GetLongitudeDegree ( )  <  0) 

{  Err or Li s  t . AddError ( " CompareOrbi t " , 

"Longitude  degree  of  platform  is  less  than  0", 

1)  ; 

} 

if  (Platform. GetLongitudeDegree ( )  >  360) 

{  ErrorList .AddError ( "CompareOrbit" , 

"Longitude  degree  of  platform  is  greater  than  360 
1)  ; 

} 

if  ( Platform. GetLongitudeMinute ( )  <  0) 

{  ErrorList .AddError ( "CompareOrbit" , 

"Longitude  minute  of  platform  is  less  than  0", 

1)  ; 

} 

if  ( Platform. GetLongitudeMinute ( )  >  60) 

(  ErrorList .AddError ( "CompareOrbit" , 

"Longitude  minute  of  platform  is  greater  than  60" 
1); 

} 

if  ( Platform. GetLongitudeSecond ( )  <  0) 

{  ErrorList .AddError ( "CompareOrbit" , 

"Longitude  second  of  platform  is  less  than  0", 

1)  ; 

} 

if  ( Platform. GetLongitudeSecond ( )  >  60) 

{  ErrorList .AddError ( "CompareOrbit" , 

"Longitude  second  of  platform  is  greater  than  60" 
1)  ; 

} 

if  (Sat .GetRightAscension( )  <  0) 

{  ErrorList .AddError ( "CompareOrbit" , 

"Right  ascension  of  satellite  is  less  than  0", 

1)  ; 

} 

if  (Sat .GetRightAscension( )  >360) 

{  ErrorList .AddError ( "CompareOrbit" , 

"Right  ascension  of  satellite  is  >  360  degrees", 
1); 

} 

i f  ( Sat . GetMeanAnomaly ( )  <  0 ) 

{  ErrorList .AddError ( "CompareOrbit" , 

"Mean  anomaly  of  satellite  is  less  than  0", 

1)  ? 

} 

if  (Sat .GetMeanAnomaly ( )  >  360) 

{  Er r orLi s  t . AddError ( " CompareOrbi t " , 

"Mean  anomaly  of  satellite  is  >  360  degrees", 

1)  ; 

} 

if  (Sat .Getinclination ( )  <  0) 
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{  ErrorList . AddError ( "CompareOrbit ” , 

"Inclination  of  satellite  is  less  than  0", 

1); 

} 

if  (Sat .GetInclination( )  >  18()) 

{  ErrorList .AddError ( "CompareOrbit " , 

"Inclination  of  satellite  is  >  180  degrees", 

1)  ; 

} 

if  (Sat .GetEccentricity ( )  <  0) 

{  ErrorList .AddError ( "CompareOrbit " , 

"Eccentricity  of  satellite  is  less  than  0", 

1)  ; 

} 

if  (Sat .GetEccentricity ( )  >=  1) 

{  ErrorList .AddError ( "CompareOrbit " , 

"Eccentricity  of  satellite  is  >=  1", 

1)  ; 

} 

if  (Sat .GetArgumentOf Perigee ( )  <  0) 

{  Err orLi s  t . AddError ( " CompareOrbit " , 

"Arg  of  Perigee  of  satellite  is  less  than  0  deg 
1); 

} 

if  (Sat .GetArgumentOf Perigee ( )  >360) 

{  ErrorList .AddError ( "CompareOrbit " , 

"Arg  of  perigee  of  satellite  is  >  360  degrees", 
1)  ; 

} 

if  (Sat .GetMeanMotion ( )  <=  0.0) 

{  sprintf (buffer , "Mean  Motion  <=  0.0  for  Satellite  SSC:  %d" , 

Sat .  GetSSCNximber  ()); 

ErrorList .AddError ( "CompareOrbit" , 
buffer, 

1)  ; 

} 


/**********************************★*******★**★**/ 
/*  BEGIN  CALCULATIONS  UNLESS  CRITICAL  ERROR  */ 
/**************************★★★******★★★★★********/ 
if  (ErrorList .CriticalError ( ) ) 
return ; 

/*******★**************★***★**★**************★***/ 


/*  FIND  LAT  AND  LON  IN  RADIANS  */ 
/*  NOTE  THAT  -LAT  =  SOUTHERN  LATITUDE  */ 
/*  LatitudeHemi sphere  =  "0"  =  NORTH  LAT  */ 
/*  LatitudeHemi sphere  =  "1"  =  SOUTH  LAT  */ 


/************★★*************★*★★****★*★*★★******★/ 

Latitude  =  ( Platform. GetLatitudeDegree () )  + 

( Platform. GetLatitudeMinute  0/60.0)  + 

( Platform. GetLatitudeSecond ( ) /3600 . 0) ; 

LatInRadians  =  Latitude  *  DEGTORADIANS ; 
if  ( Platform. GetLatitudeHemisphere ( )  ==  1) 

LatInRadians  =  -LatInRadians; 

if  (Latitude  <  -90.0) 

{  ErrorList .AddError ( "CompareOrbit" , 

"Latitude  of  platform  is  more  than  90  deg  south 
1); 

} 

if  (Latitude  >90.0) 

{  ErrorList .AddError ( "CompareOrbit " , 
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} 


Latitude  of  platform  is  >  90  deg  north", 
1); 


Longitude  =  ( Platform. GetLongitudeDegree () )  + 

( Platform. GetLongitudeMinute ( ) /60 . 0)  + 
(Platform.GetLongitudeSecond( ) /3600 . 0 ) ; 
LonInRadians  =  Longitude  *  DEGTORADIANS ; 
if  (Longitude  >  360.0) 

{  ErrorList . AddError ( "CompareOrbit " , 

"Longitude  of  platform  is  >  360  deg", 
1)  ; 


/************★*****************★*******★*★***★*★*/ 

/*  CONTINUE  UNLESS  CRITICAL  ERROR  */ 

/******★***********************************★*****/ 
if  (ErrorList . CriticalError ( ) ) 
return ; 

/**★*******★**★***********************★★****★****/ 

/*  CONVERT  RIGHT  ASCENSION  TO  RADIANS  */ 

/*************★***************★***★*★************/ 

RAInRad  =  Sat .GetRightAscension ( )  *  DEGTORADIANS; 

/**************************★*********★**★******★*/ 

/*  CONVERT  INCLINATION  TO  RADIANS  */ 

/**★***★*★*★*******★******************★★*********/ 

InclinInRad  =  Sat .GetInclination ( )  *  DEGTORADIANS; 

/************★***********************************/ 

/*  FIND  PHI  -  THE  SPHERICAL  ANGLE  BETWEEN  THE  */ 

/*  PLATFORM  AND  THE  ASCENDING  NODE  OF  THE  */ 

/*  SATELLITE  EPHEMERIS  */ 

/*★★*************★*******★★★**★★***★*************/ 

CosinePhi  =  cos (LatInRadians )  * 

cos (RAInRad  -  (ThetaGInRad  +  LonInRadians)); 

Phi  =  acos (CosinePhi) ; 

/*********★*★************★***********************/ 

/*  FIND  ALPHA  -  THE  ANGLE  BETWEEN  */ 

/*  PHI  AND  THE  EQUATOR  OF  THE  EARTH  */ 

/★*****★*******★***★*★**★**************★★********/ 

if  ((Phi  >=  1.5707963267)  &&  (Phi  <=  1.5707963269)) 

{  Phi  =  1.5707963267; 

ErrorList .AddError ( "CompareOrbit" , 

"Phi  =  90  deg.  Phi  adjusted  for  tan  calculation", 
0); 

} 

if  (tan(Phi)  1=0.0) 

CosineAlpha  =  tan(RAInRad  -  (ThetaGInRad  +  LonInRadians))  /  tan(Phi) 

else 

{  sprintf (buffer, "tan (Phi)  =0.0  forSatellite  SSC:  %d" , 

Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "CompareOrbit " , 
buffer, 

1); 

} 
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/****★*★★*********★★★**★★★********************★**/ 
/*  CONTINUE  UNLESS  CRITICAL  ERROR  */ 

/************************************************/ 
if  (ErrorList . CriticalError ( ) ) 
return; 


if  (CosineAlpha  <=  -1.0) 
CosineAlpha  =  -1.00; 
if  (CosineAlpha  >=  1.0) 
CosineAlpha  =  1.00; 

Alpha  =  acos (CosineAlpha); 


/************************★*★★********************/ 

/*  FIND  BETA  -  THE  ANGLE  BETWEEN  */ 

/*  PHI  AND  THE  SATELLITE  EPHEMERIS  PATH  */ 

/★★TIT*********************************************/ 

if  (Platform. GetLatitudeHemisphere ( )  ==  0) 

{  if  ((Alpha  +  InclinInRad)  <=  (PI/ 2.0)) 

Beta  =  Alpha  +  InclinInRad; 
else  if  ((Alpha  +  InclinInRad)  <=  PI) 

Beta  =  PI  -  Alpha  -  InclinInRad; 
else  if  ((Alpha  +  InclinInRad)  <=  (3 . 0*PI/2 . 0 ) ) 
Beta  =  Alpha  +  InclinInRad  -  PI; 
else  if  ( (Alpha  +  InclinInRad)  <=  TWOPI) 

Beta  =  TWOPI  -  Alpha  -  InclinInRad; 

else 

{  ErrorList .AddError ( "CompareOrbit " , 

"Error  computing  Beta! ! ! ” , 
1)  ; 

} 

} 

else  if  ( Platform. GetLatitudeHemisphere ( )  ==  1) 

{  if  ((Alpha  -  InclinInRad)  <=  (-PI/2.0)) 

Beta  =  PI  +  Alpha  -  InclinInRad; 
else  if  ((Alpha  -  InclinInRad)  <=  0.0) 

Beta  =  InclinInRad  -  Alpha; 
else  if  ((Alpha  -  InclinInRad)  <=  (PI/2.0)) 

Beta  =  Alpha  -  InclinInRad; 
else  if  ((Alpha  -  InclinInRad)  <=  PI) 

Beta  =  PI  +  InclinInRad  -  Alpha; 

else 

{  Err orL i s  t . AddError ( " CompareOrbit " , 

"Error  computing  Beta! ! ! " , 

1)  ; 

} 

} 

else 

{  ErrorList .AddError ( "CompareOrbit” , 

"Error  computing  Beta! ! ! " , 

1)  ; 

} 

/****★**********★**********★*********************/ 

/*  CONTINUE  UNLESS  CRITICAL  ERROR  */ 

/******★***★**★*★****★**★***★********************/ 
if  (ErrorList .CriticalError ( ) ) 
return; 
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/************************************************/ 
/*  FIND  D  -  THE  MINIMUM  SPHERICAL  ANGLE  */ 

/*  BETWEEN  THE  SATELLITE  EPHEMERIS  PATH  */ 

/*  AND  THE  PLATFORM  (MINIMUM  DISTANCE)  */ 

/************************************************/ 
SineD  =  sin(Beta)  *  sin(Phi); 

D  =  asin( SineD) ; 


/* 

HERE  WE  FIND  THE  COMBINED  ANGLE  OF  THE  TRUE  ANOMALY  +  ARGUMENT  OF 

*/ 

/* 

PERIGEE  GIVEN  THAT  WE  KNOW  THE  SIN  AND  COS  OF  THAT  ANGLE. . .IE: 

*/ 

/* 

GIVEN  sin(x)  =  y 

*/ 

/* 

cos(x)  =  z 

*/ 

/* 

*/ 

/* 

IF 

sin-1 (y)  is  positive  or  0  AND  cos-1 (z)  is  positive 

or  0  THEN 

*/ 

/* 

X  =  sin-1 (y) 

*/ 

/* 

IF 

sin-1 (y)  is  positive  or  0  AND  cos-1 (z)  is  negative 

THEN 

*/ 

/* 

X  =  180  deg  -  sin-1 (y) 

*/ 

/* 

IF 

sin-1 (y)  is  negative  AND  cos-1 (z)  is  positive  or  0 

THEN 

*/ 

/* 

X  =  360  deg  -  sin-1 (y) 

*/ 

/* 

IF 

sin-1 (y)  is  negative  AND  cos-1 (z)  is  negative  THEN 

*/ 

/* 

X  =  180  deg  +  sin-1 (y) 

*/ 

/* 

*/ 

/* 

In 

Radians,  180  =  PI,  360  =  2PI 

*/ 

/*************************★*************************★*★****★****★**★*****/ 
if  (D  >=  1.5707963267) 

{  D  =  1.5707963266; 

ErrorList . AddError ( "CompareOrbit " , 

"D  =  90  deg,  D  adjusted.”, 

0)  ; 

} 

if  ((Beta  >=  1.5707963267)  &&  (Beta  <=  1.5707963269)) 

{  Beta  =  1.5707963266; 

ErrorList .AddError ( "CompareOrbit" , 

"Beta  =  90  deg,  Beta  adjusted.", 

0); 

} 

if  (tan (Beta)  !=  0.0) 

SineOfVandWl  =  tan (D) /tan (Beta) ; 

else 

{  sprintf (buffer ," tan (Beta)  -  0.0  for  Satellite  SSC:  %d" , 

Sat .  GetSSCNiimber  ()); 

ErrorList .AddError ( "CompareOrbit" , 
buffer, 

1)  ; 

} 

/************************************************/ 

/*  CONTINUE  UNLESS  CRITICAL  ERROR  */ 

/******************************************■*★★**★/ 
if  (ErrorList . CriticalError ( ) ) 
return; 

if  (SineOfVandWl  >=  1.0) 

SineOfVandWl  =  1.0000000000000; 

VandWl  =  as in (SineOfVandWl ) ; 

if  (cos(D)  !=  0.0) 

CosineOfVandW2  =  cos (Phi) /cos (D) ; 

else 
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{  sprintf (buffer , "cos (D)  =  0.0  forSatellite  SSC:  %d" , 
Sat . GetSSCNumber {)); 

ErrorList . AddError ( "CompareOrbit " , 
buffer, 

1); 

} 

/**★****★***★★****★**★★***************★**********/ 

/*  CONTINUE  UNLESS  CRITICAL  ERROR  */ 

/************************************★***********/ 
if  (ErrorList .CriticalError 0 ) 
return; 

VandW2  =  acos (CosineOfVandW2 ) ; 

if  ( (VandWl  >=  0.0)  &&  (VandW2  >=  0.0)) 

VandW  =  VandWl; 

else  if  ((VandWl  >=  0.0)  &&  (VandW2  <  0.0)) 

VandW  =  PI  -  VandWl; 

else  if  ((VandWl  <  0.0)  &&  (VandW2  >=  0.0)) 

VandW  =  TWOPI  -  VandWl; 
else  if  ((VandWl  <  0.0)  &&  (VandW2  <  0.0)) 

VandW  =  PI  +  VandWl; 

WInRad  =  Sat.GetArgtimentOfPerigeeO  *  DEGTORADIANS; 
TrueAnoitialyInRad  =  VandW  -  WInRad; 

/**************************★************************/ 

/*  DERIVE  SEMIMAJOR  AXIS  FROM  THE  SATELLITE  */ 

/*  MEAN  MOTION.  SEMIMAJOR  AXIS  IS  IN  KILOMETERS  */ 
/★*******★**★★★********★**★*********★**************★/ 

X  =  MMREVSPERDAY  /  Sat .GetMeanMotion ( ) ; 

Y  =  2.0/3.0; 

SemiMajorAxis  =  pow(X,Y) ; 

/★*★*****★★*★*******************************★*******/ 

/*  FIND  SATELLITE  RADIUS  FROM  CENTER  OF  EARTH  AT  */ 

/*  THE  TRUE  ANOMALY  ANGLE  FOUND  PREVIOUSLY.  */ 

/***************************************************/ 
Eccentricity  =  Sat .GetEccentricity ( ) ; 

Numerator  =  SemiMajorAxis  *  (1.0  ^  pow (Eccentricity,  2.0)) 
Denominator  =  1.0  +  Eccentricity  *  cos (TrueAnomalyInRad) ; 
SatRadius  =  Numerator /Denominator; 

/***************************************************/ 

/*  FIND  CRITICAL  RADIUS  FROM  CENTER  OF  EARTH  AT  */ 

/*  THE  CLOSEST  APPROACH.  (CLOSEAST  APPROACH  WILL  */ 

/*  OCCUR  AT  THE  TRUE  ANOMALY  ANGLE  DERIVED  ABOVE)  */ 
/******★**★****★**★**★***************★*★************/ 

Altitude  =  Platform. GetAltitude 0 ; 

CriticalRadius  =  (EARTHRADIUS  +  Altitude  )/  cos (D) ; 

/***********★*************★*************************/ 

/*  COMPARE  SATELLITE  RADIUS  TO  THE  CRITICAL  */ 

/*  RADIUS.  IF  SATELLITE  RADIUS  IS  BIGGER,  THEN  */ 

/*  THE  SATELLITE  IS  IN  RANGE.  */ 

/***********★*****************★**************★****★*/ 
OrbitInView  =  0; 

if  (SatRadius  >=  CriticalRadius) 

OrbitInView  =  1; 

return; 

} 
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D.4  FindDisplacementAngleModules.cpp 


/*★***★******★***★***********★*★*************************★★****★*************/ 
/*  MODULE  NAME:  FindDisplacementAngleModules . cpp  */ 

/*  AUTHOR:  Captain  David  Vloedman  */ 

/*  DATE  CREATED:  3  January,  1999  */ 

/*  */ 

/*  PURPOSE:  This  set  of  modules  supports  the  Main  Processor  and  are  */ 

/*  used  to  evaluate  the  error  angle  and  the  displacement  */ 

/*  angle  between  the  laser  position  vector  in  the  REN  frame*/ 

/*  and  the  satellite  position  vector  in  the  same  frame.  */ 

/*  */ 

/*  COMPILER:  Borland  C++  Builder3  Standard  version  */ 

/*  This  compiler  should  be  used  to  compile  and  link.  */ 

/*  */ 


/***************★********★**★*****************★★*****************************/ 

/******★**********★***★***********/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/*********★**********★**********+★/ 

# include  <vcl.h> 

#pragma  hdrstop 

#pragma  package ( smar t_ini t ) 

/************★*****************★**/ 

/*  USER-BUILT  LIBRARIES  */ 

/*****************★*★*************/ 

#include  "TimeModules .h” 

# include  "TLEInput .h" 

#include  "LaserConstants .h” 

#include  "Satellite .h" 

#include  "Aircraft.h” 

# include  "ErrorStructure . h" 

#include  "EvaluateEphemerisModules .h" 

# include  "SGP4SupportModules .h" 

#include  "FindDisplacementAngleModules .h" 
ttinclude  "TargetSatellite.h" 

#include  "TargetPlatform.h" 
tinclude  "TargetLaser .h” 

/★****★***★★★**★**★★*★*******★****/ 

/*  C  STANDARD  LIBRARIES  */ 

/*★*******************************/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

# include  <math.h> 

/******★★**********★************★*★*****★**★****★****★*****************★*****/ 
/***********************  FUCTIONS  *****************************/ 

/*★***★★***********★**★**★★**★****★★**★**********★******************★********/ 

/★*★**★★*★****★*★★★****★**★*★**★★*★★**★**★*****★****★*★****★★*★**************/ 


/*  FUNCTION  NAME:  FindDisplacementAngles  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED;  January  3,  1999  */ 
/*  */ 


/*  PURPOSE:  This  function  will  take  satellite  and  platform  data  and  */ 
/*  willuse  it  to  find  the  error  angle  and  the  displacement  */ 
/*  angle  between  the  laser  position  vector  in  the  REN  frame*/ 
/*  •  and  the  satellite  position  vector  in  the  same  frame.  */ 
/*  */ 
/*  INPUTS;  NAME;  DEFINITION:  */ 
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/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

n 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*  OUTPUTS; 
/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


ABLPlatform 


JulianDate 


ThetaGInRadians 


LazerAzimuthInDegrees 


Lazer Az imuthDo t 


LazerAzimuthDotDot 


Laz  er E 1 e va t i onDo t 


LazerElevationDotDot 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


Sat  Holds  all  ephemeris  information 

for  the  Satellite  being  studied 
Holds  all  information  about  ABL 
Platform  position/disposition 
The  time  to  which  the  position 
of  sat  should  be  propagated  to 
The  angle  between  the  Greenwich 
Meridian  and  the  Vernal  Equinox 
at  JulianDate. 

Lazer  Azimuth  at  Laze  Start  time*/ 
in  Degrees  */ 

The  rate  of  change  of  the  Az  */ 
in  Degrees /Sec.  */ 

The  rate  of  change  of  the  rate  */ 
of  change  of  the  Azimuth  (Accel)*/ 
in  Degrees/Sec^2 

LazerElevationInDegrees  Lazer  Elevation  at  Laze  Start 

in  Degrees 

The  rate  of  change  of  the  El 
in  Degrees /Sec. 

The  rate  of  change  of  the  rate 
of  change  of  the  Elevat.  (Accel)*/ 
in  Degrees /Sec^2  */ 

SatPositionErrorInMeters  Holds  the  radius  of  the  error 

spheroid  that  describes  the 
area  in  which  the  satellite  is 
known  to  exist  (in  meters) . 

.Holds  the  radius  of  the  error 
spheroid  that  describes  the 
area  in  which  the  platform  is 
known  to  exist  (in  meters) . 

Holds  the  radius  of  the  error 
spheroid  that  describes  the 
area  in  which  the  missile  is 
known  to  exist  (in  meters) . 

The  Range  to  the  missile  (km) 

Holds  any  other  error  angles 
(in  degrees)  that  may  be  a 
significant  source  of  error. 

This  should  usually  be  set  to 
zero  (0.0)  float. 

DESCRIPTION: 

The  Radial  Component  of  the 
position  vector  of  the  satellite*/ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

The  East  Component  of  the  */ 

position  vector  of  the  satellite*/ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

The  North  Component  of  the  */ 

position  vector  of  the  satellite*/ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

The  Radial  Component  of  the  */ 
velocity  vector  of  the  satellite*/ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

The  East  Component  of  the  */ 

velocity  vector  of  the  satellite*/ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

The  North  Component  of  the  */ 


PlatformPositionError . , 


MissilePositionError . 


RangeToMissileInKilo . 
0 therErr or Angles InDeg 


NAME: 

PlatformSatRENRhoR 


PlatformSatRENRhoE 


PlatformSatRENRhoN 


PlatformSatRENRhoRDot 


PlatformSatRENRhoEDot 


PlatformSatRENRhoNDot 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
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/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


velocity  vector  of  the  satellite*/ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

PlatformSatRENRhoRDotDot  The  Radial  Component  of  the  */ 

accel  vector  of  the  satellite  */ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  ,  */ 

PlatformSatRENRhoEDotDot  The  East  Component  of  the  */ 

accel  vector  of  the  satellite  */ 
wrt  the  platform  in  the  REN  */ 
coordinate  frame.  */ 

PlatformSatRENRhoNDotDot  The  North  Component  of  the  */ 

accel  vector  of  the  satellite  */ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

The  Radial  unit  direction  of  the*/ 
lazer  beam  trajectory  in  the  REN*/ 
frame .  * / 

The  East  unit  direction  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame .  * / 

The  North  unit  direction  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame .  *  / 

The  Radial  unit  velocity  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dirXradians/sec  */ 
The  East  unit  velocity  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dirXradians/sec  */ 
The  North  unit  velocity  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dirXradians/sec  */ 
The  Radial  unit  accel.  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dirXradians/sec'^2  */ 
The  East  unit  accel.  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dirXradians/sec^2  */ 
The  North  unit  accel.  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dirXradians/sec""2  */ 
Holds  the  range  of  the  aircraft  */ 
to  the  satellite  in  kilometers.  */ 
The  total  error  angle  in  radians*/ 
The  separation  (in  radians)  of  */ 
the  LaserRENRho  and  */ 

PlatformSatRENRho  vectors.  */ 

The  rate  of  change  (in  rad/ sec)  */ 
of  the  separation  of  LaserRENRho*/ 
PlatformSatRENRho  vectors.  */ 

The  acceleration  (in  rad/sec^2)  */ 
of  the  separation  of  LaserRENRho*/ 


Las  erRENRhoR 


LaserRENRhoE 


LaserRENRhoN 


Las  erRENRhoRDo  t 


Las  erRENRhoEDo  t 


LaserRENRhoNDot 


Las  erRENRhoRDo  t Do t 


Las  erRENRhoEDo  tDo  t 


Las  erRENRhoNDo  tDo  t 


RangeInKilometers 

ErrorAngleInRadians 

SeparationAngle 


SeparationAngleDot 


SeparationAngleDotDot 


ErrorList 


and  PlatformSatRENRho  vectors . 
The  Errors  which  have  occurred 


COMPILER:  Borland  C++  Builder 3  Standard  version 

This  compiler  should  be  used  to  compile  and  link. 


/*  */ 
/*★*★*************★★★************★*★********★****************★*★*************/ 
void  FindDisplacementAngles (struct  Aircraft  &Platform, 

struct  Satellite  &Sat, 
double  &ThetaGInRad, 
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double  JulianDate, 

double  LaserAzimuthInDegrees , 

double  LaserAzimuthDot, 

double  LaserAzimuthDotDot , 

double  LaserElevationInDegrees, 

double  LaserElevationDot , 

double  LaserElevationDotDot, 

double  SatPositionErrorInMeters , 

double  Platf ormPositionErrorlnMeters , 

double  MissilePositionErrorInMeters , 

double  RangeToMissileInKilometers , 

double  OtherErrorAngleInDeg, 

double  ScPlatformSatRENRhoR, 

double  &PlatfonnSatRENRhoE, 

double  ScPlatformSatRENRhoN, 

double  ScPlatformSatRENRhoRDot , 

double  ScPlatformSatRENRhoEDot, 

double  &PlatformSatRENRhoNDot, 

double  &PlatfonnSatRENRhoRDotDot, 

double  &PlatfoniiSatRENRhoEDotDot, 

double  ScPlatf ormSatRENRhoNDotDot , 

double  ScLaserRENRhoR, 

double  &LaserRENRhoE, 

double  &:LaserRENRhoN, 

double  ScLaserRENRhoRDot, 

double  ScLaserRENRhoEDot , 

double  &LaserRENRhoNDot, 

double  &LaserRENRhoRDotDot , 

double  ScLaserRENRhoEDotDot , 

double  &LaserRENRhoNDotDot/ 

double  &RangeToSatInKilometers, 

double  ScErrorAngleInRadians, 

double  ScSeparationAngle, 

double  ScSepAngleDot, 

double  &SepAngleDotDot , 

ErrorStructure  &ErrorList) 


{ 

/******★**★********★*******★****/ 

/*  VARIABLE  DECLARATIONS  */ 

/******★**★************★********/ 
double  SatECIRhoX; 

double  *SatECIRhoXPtr  =  &SatECIRhoX; 
double  SatECIRhoY; 

double  *SatECIRhoYPtr  =  &SatECIRhoY; 
double  SatECIRhoZ; 

double  *SatECIRhoZPtr  =  ScSatECIRhoZ; 
double  SatECIRhoXDot ; 

double  *SatECIRhoXDotPtr  =  & SatECIRhoXDot; 
double  SatECIRhoYDot; 

double  *SatECIRhoYDotPtr  =  ScSatECIRhoYDot; 
double  SatECIRhoZDot; 

double  *SatECIRhoZDotPtr  =  &SatECIRhoZDot ; 
double  SatECIRhoXDotDot; 

double  *SatECIRhoXDotDotPtr  =  &SatECIRhoXDotDot ; 
double  SatECIRhoYDotDot; 

double  *SatECIRhoYDotDotPtr  =  ScSatECIRhoYDotDot ; 
double  SatECIRhoZDotDot; 

double  *SatECIRhoZDotDotPtr  =  &SatECIRhoZDotDot ; 
double  SatRENRhoR; 

double  *SatRENRhoRPtr  =  &SatRENRhoR; 
double  SatRENRhoE; 
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double  *SatRENRhoEPtr  =  &SatRENRhoE; 
double  SatRENRhoN; 

double  *SatRENRhoNPtr  =  &SatRENRhoN; 
double  SatRENRhoRDot ; 

double  *SatRENRhoRDotPtr  =  &SatRENRhoRDot; 
double  SatRENRhoEDot ; 

double  *SatRENRhoEDotPtr  =  ScSatRENRhoEDot ; 
double  SatRENRhoNDot; 

double  *SatRENRhoNDotPtr  =  &SatRENRhoNDot ; 
double  SatRENRhoRDotDot; 

double  *SatRENRhoRDotDotPtr  =  &SatRENRhoRDotDot ; 
double  SatRENRhoEDotDot; 

double  *SatRENRhoEDotDotPtr  =  &SatRENRhoEDotDot ; 
double  SatRENRhoNDotDot ; 

double  *SatRENRhoNDotDotPtr  =  &SatRENRhoNDotDot ; 
double  PlatformECIRhoX; 

double  *PlatfontiECIRhoXPtr  =  ScPlatformECIRhoX; 
double  PlatformECIRhoY; 

double  *Platf ormECIRhoYPtr  =  &PlatformECIRhoY; 
double  PlatformECIRhoZ; 

double  *PlatfonnECIRhoZPtr  =  ScPlatformECIRhoZ; 
double  PlatformECIRhoXDot; 

double  *PlatformECIRhoXDotPtr  =  &PlatfonnECIRhoXDot ; 
double  Platf ormECIRhoYDot ; 

double  *PlatformECIRhoYDotPtr  =  &Platf ormECIRhoYDot ; 
double  PlatfoirmECIRhoZDot  ; 

double  *PlatformECIRhoZDotPtr  =  &Platf ormECIRhoZDot ; 
double  PlatformECIRhoXDotDot; 

double  *PlatformECIRhoXDotDotPtr  =  ficPlatformECIRhoXDotDot ; 
double  PlatformECIRhoYDotDot ; 

double  *PlatformECIRhoYDotDotPtr  =  ScPlatformECIRhoYDotDot; 
double  PlatformECIRhoZDotDot; 

double  *PlatfonnECIRhoZDotDotPtr  =  &PlatformECIRhoZDotDot; 
double  PlatformRENRhoR; 

double  *PlatforinRENRhoRPtr  =  &Platf ormRENRhoR; 
double  PlatformRENRhoE; 

double  *PlatformRENRhoEPtr  =  &PlatformRENRhoE; 
double  PlatformRENRhoN; 

double  *PlatformRENRhoNPtr  =  ScPlatf ormRENRhoN; 
double  PlatformRENRhoRDot; 

double  *PlatformRENRhoRDotPtr  =  ^PlatformRENRhoRDot ; 
double  PlatformRENRhoEDot; 

double  *PlatformRENRhoEDotPtr  =  &PlatformRENRhoEDot ; 
double  PlatformRENRhoNDot; 

double  *PlatformRENRhoNDotPtr  =  &PlatformRENRhoNDot ; 
double  PlatformRENRhoRDotDot ; 

double  *PlatformRENRhoRDotDotPtr  =  &PlatformRENRhoRDotDot ; 
double  PlatformRENRhoEDot Dot; 

double  *PlatformRENRhoEDotDotPtr  =  ScPlatformRENRhoEDotDot ; 
double  PlatformRENRhoNDotDot ; 

double  *PlatformRENRhoNDotDotPtr  =  &Platf ormRENRhoNDotDot ; 
double  ECItoRENMatrixll ; 

double  *ECItoRENMatrixllPtr  =  &ECItoRENMatrixll ; 
double  ECItoRENMatrixl2 ; 

double  *ECItoRENMatrixl2Ptr  =  &ECItoRENMatrixl2 ; 
double  ECItoRENMatrixll ; 

double  *ECItoRENMatrixl3Ptr  =  &ECItoRENMatrixl3 ; 
double  ECItoRENMatrix21 ; 

double  *ECItoRENMatrix21Ptr  =  &ECItoRENMatrix21 ; 
double  ECItoRENMatrix22 ; 

double  *ECItoRENMatrix22Ptr  =  &ECItoRENMatrix22 ; 
double  ECItoRENMatrix23 ; 

double  *ECItoRENMatrix23Ptr  =  &ECItoRENMatrix23 ; 


241 


double 

double 

double 

double 

double 

double 


ECItoRENMatrix31 ; 

*ECItoRENMatrix3lPtr  =  &ECItoRENMatrix31; 
ECItoRENMatrix32 ; 

*ECItoRENMatrix32Ptr  =  &ECItoRENMatrix32; 
ECItoRENMatrix33 ; 

*ECItoRENMatrix33Ptr  =  &ECItoRENMatrix33 ; 


/*  FIND  THE  PLATFORM  POSITION,  VELOCITY,  AND  */ 
/*  ACCELERATION  IN  BOTH  THE  ECI  AND  REN  */ 
/*  COORDINATE  FRAMES.  AFTER  CONVERSION  TO  THE  */ 
/*  REN  FRAME,  ALSO  RETURN  THE  ECI  TO  REN  CON-  */ 
/*  VERSION  MATRIX  TO  USE  IN  OTHER  ROTATIONS.  */ 


/*****★**★★*★***********★★*★**★**********★*******★**/ 
TargetPlatfonn( Platform, 

ThetaGInRad, 

JulianDate, 

*Platf ormECIRhoXPtr , 

*Platf ormECIRhoYPtr , 
♦PlatformECIRhoZPtr, 

*Platf ormECIRhoXDotPtr , 
♦PlatformECIRhoYDotPtr, 

*Platf ormECIRhoZDotPtr , 
♦PlatformECIRhoXDotDotPtr, 

*Platf ormECIRhoYDotDotPtr , 
*PlatformECIRhoZDotDotPtr, 

*Platf ormRENRhoRPtr , 

* Plat f ormRENRhoEPtr , 

* Plat f ormRENRhoNPtr , 

* Plat f ormRENRhoRDotPtr , 

*Platf ormRENRhoEDotPtr , 

*Platf ormRENRhoNDotPtr , 
♦PlatformRENRhoRDotDotPtr, 


♦PlatformRENRhoEDotDotPtr, 

♦PlatformRENRhoNDotDotPtr, 

*ECItoRENMatrixllPtr, 

*ECItoRENMatrixl2Ptr, 

*ECItoRENMatrixl3Ptr, 

*ECItoRENMatrix21Ptr, 

*ECItoRENMatrix22Ptr, 

*ECItoRENMatrix23Ptr, 

*ECItoRENMatrix31Ptr, 

*ECI toRENMatr ix3  2  Ptr , 

*ECI toRENMatr ix3  3  P tr , 
ErrorList) ; 


/**********************/ 
/*  ECI  TO  REN  MATRIX  */ 

/*  USED  TO  CONVERT  */ 

/*  FROM  ECI  TO  REN  */ 

/*  COORDINATES.  */ 

/**********************/ 


/***************************************************/ 
/*  FIND  THE  SATELLITE  POSITION,  VELOCITY  AND  */ 

/*  ACCELERATION  IN  THE  ECI  FRAME,  THEN  USE  THE  */ 
/*  ECI  TO  REN  CON  MATRIX  TO  FIND  THE  REN  VERSION.  */ 
*  *  *★★**★★★*★**★■*★★**★**★**★★★★★*****★★★★★*★/ 
TargetSatellite ( Sat , 

JulianDate, 

ECItoRENMatrixll , 

ECItoRENMatrixl2 , 

ECItoRENMatrixll , 

ECI toRENMatr ix2 1 , 

ECI toRENMatr ix2 2, 

ECI toRENMatr ix2 3 , 

ECI toRENMatr ix3 1 , 

ECItoRENMatrix32 , 

ECItoRENMatrixll , 

*SatECIRhoXPtr, 
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♦SatECIRhoYPtr, 

*SatECIRhoZPtr, 

♦SatECIRhoXDotPtr , 

♦SatECIRhoYDotPtr, 

♦SatECIRhoZDotPtr, 

♦SatECIRhoXDotDotPtr, 

*S.atECIRhoYDotDotPtr, 

♦SatECIRhoZDotDotPtr, 

♦SatRENRhoRPtr, 

♦SatRENRhoEPtr, 

♦SatRENRhoNPtr, 

*SatRENRhoRDotPtr , 

♦SatRENRhoEDotPtr, 

♦SatRENRhoNDotPtr , 

♦SatRENRhoRDotDotPtr , 

♦SatRENRhoEDotDotPtr, 

*SatRENRhoNDotDotPtr, 

ErrorLlst) ; 


/************************************************** y 

/*  FIND  POSITION,  VELOCITY  AND  ACCELERATION  */ 

/ *  VALUES  OF  VECTOR  GOING  FROM  PLATFORM  TO  * / 

/*  SATELLITE  IN  PLATFORM-CENTERED  REN  FRAME  */ 

/************************************************** y 

/*****************/ 

/*  POSITION  */ 

/*****************/ 

PlatformSatRENRhoR  =  SatRENRhoR  -  PlatformRENRhoR; 
PlatformSatRENRhoE  =  SatRENRhoE  -  PlatforroRENRhoE; 
PlatformSatRENRhoN  =  SatRENRhoN  -  Platf ormRENRhoN; 

/*******★********* y 

/*  VELOCITY  */ 

/*★**★*★**★*****★*/ 

PlatformSatRENRhoRDot  =  SatRENRhoRDot  -  PlatformRENRhoRDot; 
PlatformSatRENRhoEDot  =  SatRENRhoEDot  -  PlatformRENRhoEDot ; 
PlatformSatRENRhoNDot  =  SatRENRhoNDot  -  PlatformRENRhoNDot; 

/***★***★*★*★*★***/ 

/ *  ACCELERATION  * / 

/*****************/ 

PlatformSatRENRhoRDotDot  =  SatRENRhoRDotDot  -  Platf ormRENRhoRDotDot, • 
PlatformSatRENRhoEDotDot  =  SatRENRhoEDotDot  -  PlatformRENRhoEDotDot; 
PlatformSatRENRhoNDotDot  =  SatRENRhoNDotDot  -  Platf ormRENRhoNDotDot; 


/***★★***************★***************/ 

/*  FIND  RANGE  TO  SATELLITE  */ 

/****★**********★**★**★★★************/ 

RangeToSatInKilometers  =  sqrt (pow (Platf ormSatRENRhoR, 2 )  + 

pow ( PlatformSatRENRhoE ,2)  + 
pow( PlatformSatRENRhoN, 2) ) ; 

/*  FIND  THE  ERROR  HALF -ANGLE  ASSOCIATED  WITH  THE  */ 

/*  UNCERTAINTY  IN  THE  SATELLITES  POSITION  */ 

/**★************************************************ ^ 
FindErrorAngle (RangeToSatInKilometers , 

SatPositionErrorInMeters , 

Platf ormPositionErrorInMeters , 
MissilePositionErrorInMeters , 
RangeToMissileInKilometers , 
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O therErr or Angl e InDeg 
ErrorAngleInRadians , 
ErrorList) ; 


/★***************************★*****★****************/ 
/*  FIND  THE  VECTOR  IN  THE  REN  FRAME  ASSOCIATED  */ 
/*  THE  CURRENT  AZIMUTH  AND  ELEVATION.  THE  */ 

/*  VECTOR  RETURNED  (LaserRENRho)  IS  THE  UNIT  */ 

/*  DIRECTION  VECTOR  POINTING  IN  THE  SAME  DIR  */ 

/*  AS  THE  AZIMUTH  AND  ELEVATION.  */ 

/★**★***********************★★★*****★******★********/ 
TargetLaser (LaserAzimuthInDegrees , 

LaserElevationInDegrees , 

LaserAzimuthDot , 

LaserElevationDo t , 

LaserAzimuthDotDot , 

LaserElevationDotDot , 

LaserRENRhoR, 

LaserRENRhoE , 

Las  erRENRhoN , 

LaserRENRhoRDot , 

LaserRENRhoEDo t , 

LaserRENRhoNDot , 

LaserRENRhoRDotDot , 

LaserRENRhoEDotDot , 

LaserRENRhoNDotDot ; 

ErrorList) ; 


/* 

FIND  THE  ANGLE  THAT 

SEPARATES 

THE  SATELLITE 

*/ 

/* 

POSITION  VECTOR  AND 

THE  LASER 

TURRET  UNIT 

*/ 

/* 

DIRECTION  VECTOR. 

*/ 

/*****************★********************************* ^ 
FindSeparationAngle (LaserRENRhoR, 

LaserRENRhoE , 

Las erRENRhoN , 

LaserRENRhoRDot , 
LaserRENRhoEDot , 
LaserRENRhoNDot , 
LaserRENRhoRDotDot , 
LaserRENRhoEDot Dot , 
LaserRENRhoNDotDot , 

PI at  f ormSa tRENRhoR , 
PlatformSatRENRhoE, 
PlatformSatRENRhoN, 

Platf ormSatRENRhoRDot , 

Platf ormSatRENRhoEDot , 

Platf ormSatRENRhoNDot , 

Platf ormSatRENRhoRDotDot , 
PlatformSatRENRhoEDotDot, 
Platf ormSatRENRhoNDotDot , 
SeparationAngle, 

SepAngleDot, 

SepAngleDotDot , 

ErrorList) ; 


return; 
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/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


****★*****★*******★******************★***★****★*★*****★*********★**********/ 
FUNCTION  NAME: 

AUTHOR: 

DATE  CREATED: 


FindErr or Angle 
Captain  David  Vloedman 
January  3,  1999 


PURPOSE : 


INPUTS : 


OUTPUTS : 


COMPILER: 


This  function  will  take  the  range  to  satellite  and  the 


error  angle. 


NAME: 

Range 


*/ 
*/ 
*/ 
*/ 
*/ 

satellite  position  error  and  fiond  the  appropriate  error*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


DEFINITION: 

Holds  the  range  of  the  aircraft 
to  the  satellite  in  kilometers, 
SatPositionErrorInMeters  Holds  the  radius  of  the  error 

spheroid  that  describes  the 
area  in  which  the  satellite  is 
known  to  exist  (in  meters) , 
PlatformPositionError .. .Holds  the  radius  of  the  error 

spheroid  that  describes  the 
area  in  which  the  platform  is 
known  to  exist  (in  meters)  . 
MissilePositionError . . .  Holds  the  radius  of  the  error 

spheroid  that  describes  the 
area  in  which  the  missile  is 
known  to  exist  (in  meters) . 

The  Range  to  the  missile  (km) 

Holds  any  other  error  angles 
(in  degrees)  that  may  be  a 
significant  source  of  error. 

This  should  usually  be  set  to 
zero  (0.0)  float. 

DESCRIPTION: 

The  total  error  angle  in  radians*/ 
The  Errors  which  have  occurred  */ 

*/ 
*/ 
*/ 


RangeToMissileInKilo. , 
OtherErrorAnglesInDeg 


NAME: 

ErrorAngleInRadians 

ErrorList 


Borland  C++  BuilderS  Standard  version 

This  compiler  should  be  used  to  compile  and  link. 


*/ 

/****i*f***********************************************************************/ 

void  FindErr or Angle (double  RangeToSatInKilometers , 

double  SatPositionErrorInMeters, 
double  Platf ormPositionErrorInMeters , 
double  MissilePositionError InMeters , 
double  RangeToMissileInKilometers , 
double  OtherErrorAnglesInDeg, 
double  &ErrQrAngleInRadians, 

ErrorStructure  &ErrorList) 

{ 


double  Sa t Err or Angle, • 
double  PlatformErrorAngle; 
double.  Mis si leError Angle; 
double  RangeToSatInMeters ; 
double  RangeToMissileInMeters ; 
double  DisplacementAtSat; 
double  MissileToSatInMeters; 
char  buffer [MAXMESSAGELENGTH] 


/***************************************************^ 

/*  ERROR  CHECK  EACH  PARAMETER  */ 

/*★****★******************************************** y 

if  (RangeToSatInKilometers  <=  0.0) 

{  sprintf (buffer , "Range  cannot  be  zero  or  negative.  Range  =  %d" , 

RangeToSatInKilometers) ; 
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ErrorList . AddError ( "FindErrorAngle" , 
buffer; 

1); 

} 

if  (RangeToMissileInKilometers  <=  0.0) 

{  sprintf (buffer, "Range  to  missile  cannot  be  less  than  0.  Range  =  %d 
RangeToMissileInKilometers) ; 

ErrorList .AddError ( "FindErrorAngle" , 
buffer, 

1); 

} 

if  (SatPositionErrorInMeters  <  0.0) 

{  sprintf (buffer, "Position  Error  cannot  be  negative.  Pos  Error  =  %d" 
SatPositionErrorInMeters) ; 

ErrorList .AddError ( "FindErrorAngle" , 
buffer, 

1)  ; 

} 

if  (PlatformPositionErrorInMeters  <  0.0) 

{  sprintf (buffer, "Position  Error  cannot  be  negative.  Pos  Error  =  %d" 
PlatformPositionErrorInMeters) ; 

ErrorList .AddError ( "FindErrorAngle" , 
buffer, 

1)  ; 

} 

if  (MissilePositionErrorInMeters  <  0.0) 

{  sprintf (buffer, "Position  Error  cannot  be  negative.  Pos  Error  =  %d” 
MissilePositionErrorInMeters) ; 

ErrorList .AddError ( "FindErrorAngle" , 
buffer, 

1)  ; 

} 

if  (OtherErrorAnglesInDeg  <  0.0) 

{  sprintf (buffer , "Error  Angles  cannot  be  negative.  Other  Angles  =  %d 

OtherErrorAnglesInDeg) ; 

ErrorList .AddError ( "FindErrorAngle" , 
buffer, 

1); 

} 

if  (OtherErrorAnglesInDeg  >90.0) 

{  sprintf (buffer , "Error  Angle  is  too  big  to  work  with:  Angle=  %d" , 

OtherErrorAnglesInDeg) ; 

ErrorList .AddError ( "FindErrorAngle" , 
buffer, 

1); 

} 


/*★*************★********************************/ 

/*  INITIALIZE  OUTPUT  VARIABLES  */ 

/*★*************★*★********★**★*********★*★******/ 

ErrorAngleInRadians  =  0.0; 

/***********★★***********★**********★************/ 

/*  BEGIN  CALCULATIONS  UNLESS  CRITICAL  ERROR  */ 

/*★**********************★*************★*********/ 
if  (ErrorList . Cri ticalError ( ) ) 
return; 

/★*************************************iAr*********/ 

/*  FIND  ERROR  DUE  TO  SATELLITE  POSITION  ERROR  */ 
/★***********************************************/ 

RangeToSatInMeters  =  RangeToSatInKilometers  *  1000; 

SatErrorAngle  =  atan ( SatPositionErrorInMeters /RangeToSatInMeters) ; 
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/****★**********★**★★***********★**★**★**********/ 
/*  FIND  ERROR  DUE  TO  PLATFORM  POSITION  ERROR  */ 
/**★*****★*★**★************★********★*****★******/ 


RangeToMissileInMeters  =  RangeToMissileInKilometers  *  1000; 
MissileToSatInMeters  =  RangeToSatInMeters  -  RangeToMissileInMeters; 
DisplacementAtSat  =  MissileToSatInMeters  * 

PlatformPositionErrorInMeters  / 
RangeToMissileInMeters; 

Plat formErr or Angle  =  atan (DisplacementAtSat  /  RangeToSatInMeters); 


/****★***************★*********★****★★**********★/ 

/*  FIND  ERROR  DUE  TO  MISSILE  POSITION  ERROR  */ 
/***************★***★********************★**★**★*/ 

MissileErrorAngle  =  atan (MissilePositionErrorInMeters  / 

RangeToMissileInMeters) ; 


/*********★★*★**★****★*********★*★*****★**★*★****/ 

/*  FIND  ERROR  DUE  TO  ALL  ERRORS  COMBINED  */ 

/*★**★***★***★*********★**★**************★**★****/ 

ErrorAngleInRadians  =  sqrt (pow(SatErrorAngle,  2)  + 

pow(PlatformErrorAngle,  2)  + 

pow (MissileErrorAngle,  2)  + 

pow (OtherErr or Angles InDeg  *  DEGTORADIANS, 


2)  )  ; 


return; 


} 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


*  FUNCTION  NAME:  FindSeparationAngle  */ 

*  AUTHOR:  Captain  David  Vloedman  */ 

*  DATE  CREATED:  January  3,  1999  */ 

*  */ 


*  PURPOSE : 

* 

* 

* 

* 

*  INPUTS : 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

★ 


This  routine  finds  the  angle  separating  the  satellite  */ 
position  vector  and  the  laser  turret  unit  direction  */ 
vector  in  the  REN  coordinate  frame,  as  well  as  the  rate  */ 
of  change  and  the  acceleration  of  that  separation.  */ 

*/ 


NAME: 

LaserRENRhoR 

LaserRENRhoE 

LaserRENRhoN 

LaserRENRhoRDot 

LaserRENRhoEDot 

LaserRENRhoNDot 

Las  erRENRhoRDo  tDo  t 


DEFINITION:  */ 
The  Radial  unit  direction  of  the*/ 
lazer  beam  trajectory  in  the  REN*/ 
frame .  * / 
The  East  unit  direction  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame.  */ 
The  North  unit  direction  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame.  */ 
The  Radial  unit  velocity  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dir*radians/sec  */ 
The  East  unit  velocity  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dir*radians/sec  */ 
The  North  unit  velocity  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dir*radians/sec  */ 
The  Radial  unit  accel.  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
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/* 

frame  in  unit  dir*radians/sec^2 

*/ 

/* 

LaserRENRhoEDo  t Do  t 

The  East  unit  accel .  of  the 

*/ 

/* 

lazer  beam  trajectory  in  the  REN*/ 

/* 

frame  in  unit  dir*radians/sec'^2 

*/ 

/* 

Las  erRENRhoNDo  tDo  t 

The  North  unit  accel.  of  the 

*/ 

/* 

lazer  beam  trajectory  in  the  REN*/ 

/* 

frame  in  unit  dir*radians/sec'^2 

*/ 

/* 

SatRENRhoR 

The  Radial  Component  of  the 

*/ 

/* 

position  vector  of  the  satellite*/ 

/* 

wrt  the  platform  in  the  REN 

*/ 

/* 

coordinate  frame. 

*/ 

/* 

SatRENRhoE 

The  East  Component  of  the  . 

*/ 

/* 

position  vector  of  the  satellite*/ 

/* 

wrt  the  platform  in  the  REN 

*/ 

/* 

coordinate  frame. 

*/ 

/* 

SatRENRhoN 

The  North  Component  of  the 

*/ 

/* 

position  vector  of  the  satellite*/ 

/* 

wrt  the  platform  in  the  REN 

*/ 

/* 

coordinate  frame . 

*/ 

/* 

SatRENRhoRDot 

The  Radial  Component  of  the 

*/ 

/* 

velocity  vector  of  the  satellite*/ 

/* 

wrt  the  platform  in  the  REN 

*/ 

/* 

coordinate  frame . 

*/ 

/* 

SatRENRhoEDot 

The  East  Component  of  the 

*/ 

/* 

velocity  vector  of  the  satellite*/ 

/* 

wrt  the  platform  in  the  REN 

*/ 

/* 

coordinate  frame. 

*/ 

/* 

SatRENRhoNDot 

The  North  Component  of  the 

*/ 

/* 

velocity  vector  of  the  satellite*/ 

/* 

wrt  the  platform  in  the  REN 

*/ 

/* 

coordinate  frame. 

*/ 

/* 

Sa t RENRhoRDo t Do t 

The  Radial  Component  of  the 

*/ 

/* 

accel  vector  of  the  satellite 

*/ 

/* 

wrt  the  platform  in  the  REN 

*/ 

/* 

coordinate  frame . 

*/ 

/* 

SatRENRhoEDotDot 

The  East  Component  of  the 

*/ 

/* 

accel  vector  of  the  satellite 

*/ 

/* 

wrt  the  platform  in  the  REN 

*/ 

/* 

coordinate  frame. 

*/ 

/* 

Sa t RENRhoNDo  tDo  t 

The  North  Component  of  the 

*/ 

/* 

accel  vector  of  the  satellite 

*/ 

/* 

wrt  the  platform  in  the  REN 

*/ 

/* 

coordinate  frame. 

*/ 

/* 

*/ 

/* 

OUTPUTS : 

NAME; 

DESCRIPTION: 

*/ 

/* 

SeparationAngle 

The  separation  (in  radians)  of 

*/ 

/* 

the  LaserRENRho  and 

*/ 

/* 

PlatformSatRENRho  vectors. 

*/ 

/* 

SeparationAngleDot 

The  rate  of  change  (in  rad/ sec) 

*/ 

/* 

of  the  separation  of  LaserRENRho 

'*/ 

/* 

PlatformSatRENRho  vectors. 

*/ 

/* 

SeparationAngleDotDot 

The  acceleration  (in  rad/sec^2) 

*/ 

/* 

of  the  separation  of  LaserRENRho 

,*/ 

/* 

and  PlatformSatRENRho  vectors . 

*/ 

/* 

ErrorList 

The  Errors  which  have  occurred 

*/ 

/* 

*/ 

/* 

COMPILER: 

Borland  C++  BuilderS  Standard  version 

*/ 

/* 

This  compiler  should  be 

used  to  compile  and  link. 

*/ 

/* 

*/ 

/ **********★**★★*******★*****★********★*****************★**★★****************/ 
void  FindSeparationAngle (double  LaserRENRhoR, 

double  LaserRENRhoE, 
double  LaserRENRhoN, 
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double  LaserRENRhoRDot, 

double  LaserRENRhoEDot , 

double  LaserRENRhoNDot, 

double  LaserRENRhoRDotDot , 

double  LaserRENRhoEDotDot, 

double  LaserRENRhoNDotDot , 

double  SatRENRhoR, 

double  SatRENRhoE, 

double  SatRENRhoN, 

double  SatRENRhoRDot, 

double  SatRENRhoEDot , 

double  SatRENRhoNDot, 

double  SatRENRhoRDotDot , 

double  SatRENRhoEDotDot, 

double  SatRENRhoNDotDot, 

double  &SeparationAngleInRadians , 

double  StSepAngleDot , 

double  &SepAngleDotDot, 

ErrorStructure  ScErrorList) 


double 

MagnitudeSatREN ; 

double 

CosineSepAngle; 

double 

PLDivP; 

double 

PLDotDivP; 

double 

PDotLDivP; 

double 

PPDotDivP; 

double 

PPDotDotDivP; 

double 

PDotLDotDivP; 

double 

PLDotDotDivP; 

double 

PDotDotLDivP ; 

double 

PDotPDotDivP ; 

double 

U; 

double 

V; 

double 

dU; 

double 

dV; 

/*******★★*★***********★**★***********★********★★*★***★/ 

/*  first,  FIND  MAGNITUDE  OF  RHO  TO  SATELLITE  */ 

/******************* *******************************^***/ 
MagnitudeSatREN  =  sqrt (pow (SatRENRhoR, 2 )  + 

pow ( SatRENRhoE ,2)  + 
pow ( SatRENRhoN , 2 ) ) ; 

/*★***********★********★★***********★*************★****/ 

/*  NEXT  FIND  THE  SEPARATION  ANGLE  THAT  DEFINES  THE  */ 

/*  ANGLE  BETWEEN  THE  SATELLITE  VECTOR  AND  THE  LASER  */ 

/*  TURRET  VECTOR.  SEE  THE  THESIS  BREAKDOWN  OF  THE  */ 

/*  FOLLOWING  FORMULA  TO  UNDERSTAND  THE  DERIVATION.  */ 

/********************************:«r*********************/ 

CosineSepAngle  =  LaserRENRhoR  *  SatRENRhoR  /  MagnitudeSatREN  + 
LaserRENRhoE  *  SatRENRhoE  /  MagnitudeSatREN  + 
LaserRENRhoN  *  SatRENRhoN  /  MagnitudeSatREN; 

SeparationAngleInRadians  =  acos (CosineSepAngle); 


/****************************★************************* ^ 
/*  NEXT  FIND  THE  VELOCITY  OR  RATE  OF  CHANGE  OF  THE  */ 
/*  SEPARATION  ANGLE  THAT  DEFINES  THE  ANGLE  BETWEEN  */ 
/*  THE  SATELLITE  VECTOR  AND  THE  LASER  TURRET  VECTOR.  */ 
/*  SEE  THE  THESIS  BREAKDOWN  OF  THE  FOLLOWING  FORMULA  */ 
/*  TO  UNDERSTAND  THE  DERIVATION.  */ 

/*  IN  THE  FOLLOWING  FORMULAS,  SHORT  NAMES  HAVE  BEEN  */ 
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/*  USED  TO  SUBSTITUTE  FOR  LONG  NAMES:  */ 

/*  P  =  SatRENRho  ->  VECTOR  FROM  TURRET  TO  SAT  */ 

/*  PDot  =  SatRENRhoDot  ->  RATE  OF  CHANGE  OF  ABOVE  */ 
/*  PDotDot  =  SatRENRhoDotDot  ->  ACCELERATION  OF  . . .  */ 

/*  L  =  LaserRENRho  ->  UNIT  DIR.  OF  LASER  VECTOR*/ 

/*  LDot  =  LaserRENRhoDot  ->  VELOCITY  OF  .  */ 

/*  LDotDot  =  LaserRENRhoDotDot  ->  ACCELERATION  OF  '"■“*/ 
/******************************************************/ 

PLDivP  =(SatRENRhoR  *  LaserRENRhoR  + 

SatRENRhoE  *  LaserRENRhoE  + 

SatRENRhoN  *  LaserRENRhoN) / 

MagnitudeSa  tREN ; 

PLDotDivP  =(SatRENRhoR  *  LaserRENRhoRDot  + 

SatRENRhoE  *  LaserRENRhoEDot  + 

SatRENRhoN  *  LaserRENRhoNDot) / 

Magni tudeSatREN ; 

PDotLDivP  = ( SatRENRhoRDot  *  LaserRENRhoR  + 
SatRENRhoEDot  *  LaserRENRhoE  + 
SatRENRhoNDot  *  LaserRENRhoN) / 

Magni tudeSatREN ; 

PPDotDivP  =(SatRENRhoR  *  SatRENRhoRDot  + 

SatRENRhoE  *  SatRENRhoEDot  + 

SatRENRhoN  *  SatRENRhoNDot)/ 

Magni tudeSatREN ; 


V 


SepAngleDot  =  -pow(l-pow(PLDivP, 2 ) , -0 . 5)  * 
(PLDotDivP  + 

PDotLDivP  - 

(PLDivP/MagnitudeSatREN)  * 
PPDotDivP) ; 


/******************************************************/ 
/*  FINALLY,  FIND  THE  ACCELERATION  OR  RATE  OF  CHANGE  */ 
/*  OF  THE  VELOCITY  OF  THE  SEPARATION  ANGLE  THAT  '  */ 

/*  DEFINES  THE  ANGLE  BETWEEN  THE  SATELLITE  VECTOR  AND*/ 
/*  THE  LASER  TURRET  VECTOR.  SEE  THE  THESIS  BREAKDOWN*/ 
/*  OF  THE  FOLLOWING  FORMULA  TO  UNDERSTAND  THE  */ 

/*  DERIVATION.  */ 

/*  P  =  SatRENRho  ->  VECTOR  FROM  TURRET  TO  SAT  */ 

/*  PDot  =  SatRENRhoDot  ->  RATE  OF  CHANGE  OF  ABOVE  */ 
/*  PDotDot  =  SatRENRhoDotDot  ->  ACCELERATION  OF  . . .  */ 

/*  L  =  LaserRENRho  ->  UNIT  DIR.  OF  LASER  VECTOR*/ 

/*  LDot  =  LaserRENRhoDot  ->  VELOCITY  OF  " " •  */ 

/*  LDotDot  =  LaserRENRhoDotDot  ->  ACCELERATION  OF  '"'“*/ 
/*★*****************************★★***★*★★****★*********/ 

PLDotDotDivP  =(SatRENRhoR  *  LaserRENRhoRDot Dot  + 
SatRENRhoE  *  LaserRENRhoEDot Dot  + 
SatRENRhoN  *  LaserRENRhoNDotDot) / 
Magni tudeSatREN ; 

PDotLDotDivP  =( SatRENRhoRDot  *  LaserRENRhoRDot  + 
SatRENRhoEDot  *  LaserRENRhoEDot  + 
SatRENRhoNDot  *  LaserRENRhoNDot)/ 
Magni tudeSatREN ; 

PDotDotLDivP  =(SatRENRhoRDotDot  *  LaserRENRhoR  + 
SatRENRhoEDotDot  *  LaserRENRhoE  + 
SatRENRhoNDotDot  *  LaserRENRhoN) / 

Magn i t ude S a tREN ; 
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PPDotDotDivP  =(SatRENRhoR  *  SatRENRhoRDotDot  + 
SatRENRhoE  *  SatRENRhoEDotDot  + 
SatRENRhoN  *  SatRENRhoNDotDot ) / 
Magni tudeSa tREN ; 

PDotPDotDivP  =(SatRENRhoRDot  *  SatRENRhoRDot  + 
SatRENRhoEDot  *  SatRENRhoEDot  + 
SatRENRhoNDot  *  SatRENRhoNDot ) / 
Magni tudeSatREN ; 

U  =  -pow{ (l“pow(PLDivP, 2 ) ) , -0 . 5) ; 

dU  =  -powC (l-pow(PLDivP, 2) ) , -1 . 5)  * 

(PLDotDivP  + 

PDotLDivP  - 

(PLDivP /Magni tudeSatREN)  * 

PPDotDivP)  * 

PLDivP; 

V  =  PLDotDivP  + 

PDotLDivP  - 

{ PLDivP/Magni tudeSatREN)  * 

PPDotDivP; 

dV  =  (PLDotDotDivP  + 

PDotLDotDivP  - 

(PLDotDivP/Magni tudeSatREN)  * 

PPDotDivP)  + 

(PDotLDotDivP  + 

PDotDotLDivP  - 

(PDotLDivP/Magni tudeSatREN)  * 

PPDotDivP)  + 

(PPDotDivP  * 

(2.0  *  (PLDivP /Magni tudeSatREN)  * 

(PPDotDivP/Magni tudeSatREN)  - 
(PLDotDivP /Magni tudeSatREN  + 

PDotLDivP /MagnitudeSatREN) ) )  - 

(PLDivP /Magni tudeSatREN  * 

(PPDotDotDivP  + 

PDotPDotDivP  - 

(PPDotDivP/Magni tudeSatREN)  * 

PPDotDivP) ) ; 

SepAngleDotDot  =  U*dV  +  V*dU; 
return; 
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D.5  PAMainProcessor.cpp 


/*  MODULE  NAME:  PAMainProcessor.cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  January  15, 1998  */ 
/*  */ 
/*  PURPOSE:  This  module  is  the  model  of  the  Airborne  Laser  */ 
/*  Predictive  Avoidance  Processor  which  may  be  used  to  */ 
/*  determine  whether  or  not  a  given  Laser  trajectory  will  */ 
/*  intersect  with  any  of  a  list  of  satellites  fed  to  it.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  Builders  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/****************************************************************************y 

/********★****★***************★***/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/***************★*****************/ 

#include  <vcl.h> 

#pragma  hdrstop 

#pr agma  package ( smar t_ini t ) 

/*★*★****★****★*******************/ 

/*  USER-BUILT  LIBRARIES  */ 

/*********************************/ 

#include  "TimeModules .h” 

# include  "TLEInput .h" 

#include  "LaserConstants  .h*' 

#include  " Satellite . h" 

#include  "Aircraf t .h” 

# include  "ErrorStructure.h" 

#include  "EvaluateEphemerisModules .h" 

#include  "PAMainProcessor .h" 

# include  '' SGP4SupportModules  .h" 

# include  "FindDisplacementAngleModules .h" 

#include  "TargetSatellite.h” 

#include  "TargetPlatform.h” 

# include  "TargetLaser .h” 

#include  "ProcessSatellite.h" 

/****************★****************/ 

/*  C  STANDARD  LIBRARIES  */ 

/*******★*****★*******★*********★*/ 

#include  <stdio.h> 

# include  <stdlib.h> 

# include  <string.h> 

# include  <iostream.h> 

#include  <conio.h> 

# include  <math.h> 

/**********************★***★**★********************************************** ^ 
/***********************  FUCTIONS  *****************************/ 

/*************************************************************************^*^^ 
/★************★*****★********★*********************************************** ^ 


/*  FUNCTION  NAME:  PAMainProcessor  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  January  15, 1998  ★/ 
/*  */ 
/*  PURPOSE:  This  procedure  will  read  in  an  input  file  of  Two  Line  */ 
/*  Element  (TLE)  sets  and  perform  an  analysis  to  determine  */ 
/*  whether  or  not  satellites  will  be  intercepted  by  the  */ 
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/* 

/* 

/*  INPUTS: 
/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


path  of  the  airborne  platform  laser.  */ 

*/ 

NAME:  DEFINITION:  */ 

InFileName  Holds  name  of  the  satellite  file*/ 

OutFileName  File  that  holds  the  sats  that  */ 

are  forecasted  by  the  software  */ 
to  be  intercepted  bt  the  laser.  */ 
Closes tApproachFileName  File  that  holds  the  sats  that  */ 

are  forecasted  by  the  software  */ 
to  be  close  to  the  laser.  These  */ 
are  not  necessarily  intersected.*/ 
ABLPlatform  Holds  all  information  about  ABL  */ 


Platform  position/disposition  */ 
ReferenceHour  This  holds  the  value  of  Theta  G  */ 

at  RefModJulianDate.  The  angle  */ 
of  Theta  G  is  given  in  hours,  */ 
minutes,  and  seconds  instead  of  */ 
degrees,  where  24  hrs  =  360  deg  */ 
Ref erenceMinute  Holds  the  minutes  of  Theta  G  at  */ 

RefModJulianDate.  */ 

ReferenceSecond  Holds  the  seconds  of  Theta  G  at  */ 

RefModJulianDate.  */ 

RefModJulianDate  This  is  the  reference  date  when  */ 

an  actual  observation  of  the  */ 

true  value  of  theta  G  was  made.  */ 
CalcYear  Holds  the  current  calender  year  */ 

Calcmonth  Holds  the  Calender  month (1  -  12)*/ 

CalcDay  Holds  calender  day  */ 

CalcHour  Holds  the  calender  hour  */ 

CalcMinute  Holds  the  calender  minute  */ 

CalcSecond  *  Holds  the  calender  second  */ 

LazeDuration  The  amount  of  time  for  which  the*/ 

laser  will  be  on.  This  is  */ 

To  determine  how  much  time  in  */ 

seconds  the  forecast  will  last.  */ 
LazerAzimuthInDegrees  Lazer  Azimuth  at  Laze  Start  time*/ 

in  Degrees  */ 

LazerAzimuthDot  The  rate  of  change  of  the  Az  */ 

in  Degrees /Sec.  */ 

LazerAzimuthDotDot  The  rate  of  change  of  the  rate  */ 

of  change  of  the  Azimuth  (Accel)*/ 
in  Degrees /Sec'^2  */ 

LazerElevationInDegrees  Lazer  Elevation  at  Laze  Start  */ 

in  Degrees  */ 

LazerElevationDot  The  rate  of  change  of  the  El  */ 

in  Degrees /Sec.  */ 

LazerElevationDotDot  The  rate  of  change  of  the  rate  */ 

of  change  of  the  Elevat.  (Accel)*/ 
in  Degrees /Sec'^2  */ 

SatPositionErrorInMeters  Holds  the  radius  of  the  error  */ 

spheroid  that  describes  the  */ 

area  in  which  the  satellite  is  */ 
known  to  exist  (in  meters) .  */ 

PlatformPositionError . . .Holds  the  radius  of  the  error  */ 

spheroid  that  describes  the  */ 

area  in  which  the  platform  is  */ 

known  to  exist  (in  meters) .  */ 

MissilePositionError . . .  Holds  the  radius  of  the  error  */ 

spheroid  that  describes  the  */ 

area  in  which  the  missile  is  */ 

known  to  exist  (in  meters) .  */ 

RangeToMissileInKilo . . .  The  Range  to  the  missile  (km)  */ 

OtherErrorAnglesInDeg  Holds  any  other  error  angles  */ 
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/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


ThetaGInRadians 


(in  degrees)  that  may  be  a 
significant  source  of  error. 
This  should  usually  be  set  to 
zero  (0.0)  float. 

The  angle  between  the  Greenwich 
Meridian  and  the  Vernal  Equinox 
at  JulianDate. 


OUTPUTS : 


NAME:  DESCRIPTION; 

InFileLength  The  total  number  of  satellites 

that  have  been  evaluated  in  the 
InFile 

OutFileLength  The  total  number  of  satellites 

that  are  intersected  by  platform*/ 
and  have  been  put  in  the  out file*/ 

Closes tApproachFileLength  The  total  number  of  satellites*/ 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


ErrorList 


that  come  close  to  the  laser 
and  have  been  put  in  the 
closest  approach  file. 

Errors  that  have  occured 


COMPILER: 


THE  FINAL  OUTPUT  IS  THE  ACTUAL  OUTFILE  ITSELF  WHICH  IS 
WRITTEN  DIRECTLY  TO  DISK  SO  IT  CAN  BE  ACCESSED  BY 
OTHER  SOFTWARE,  IF  NEEDED. 

Borland  C++  BuilderS  Standard  version 

This  compiler  should  be  used  to  compile  and  link. 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/*  */ 


PAMainProcessor (char 
char 
char 
int 
int 
int 

struct 

int 

int 

double 

double 

int 

int 

int 

int 

int 

double 

double 

double 


InF  i  1  eName  [  MAXNAMELENGTH  ]  , 

OutFileName  [MAXNAMELENGTH]  , 

Closes tApproachFileName [MAXNAMELENGTH] , 
&InFileLength, 

&iOutFileLength, 

&C loses  tApproachFileLength , 

Aircraft  &ABLPlatform, 

Ref erenceHour , 

Ref erenceMinute , 

Ref erenceSecond , 

Re  f Mod J u 1 i anDa t e , 

CalcYear , 

CalcMonth, 

CalcDay, 

CalcHour, 

CalcMinute, 

CalcSecond, 

LazeDuration, 

LaserAzimuthInDegrees , 
double  LaserAzimuthDot, 
double  LaserAzimuthDotDot , 

LaserElevationInDegrees , 
LaserElevationDot , 

LaserElevationDotDot , 
SatPositionErrorInMeters , 

Platf ormPositionErrorInMeters , 
MissilePositionErrorInMeters, 
double  RangeToMissileInKilometers, 
double  OtherErrorAngleInDeg, 

SecondsFromVer tex , 
InterpolationIncrement , 

&ThetaGInDegrees , 


double 

double 

double 

double 

double 

double 


double 

double 

double 


ErrorStructure  &ErrorList) 
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{ 


/******************★*******★****/ 

/*  VARIABLE  DECLARATIONS  */ 

/***************★*******★*******/ 

Sat Structure  .  *SatArray  =  new  SatStructure; 
Satellite*  Sat; 

Sat  =  new  Satellite; 


FILE 

FILE 

double 

double 

int 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

int 

int 

int 

int 

double 

double 

double 

double 


*TLEOutFile; 

*ClosestApproachFile; 

ThetaGInRadians ; 

*ThetaPtr  =  &ThetaGInRadians ; 

i; 

JulianDate; 

*JulianDatePtr  =  &JulianDate; 

RangeToSatInKilometers ; 

*RangeToSatInKilometersPtr  =  ScRangeToSatlnKilometers ; 
ErrorAngleInRadians ; 

*ErrorAngleInRadiansPtr  =  &:ErrorAngleInRadians  ; 

SeparationAngle  ; 

*SeparationAnglePtr  =  &SeparationAngle; 

SepAngleDot ; 

*SepAngleDotPtr  =  &SepAngleDot ; 

SepAngleDotDot ; 

*SepAngleDotDotPtr  =  & SepAngleDotDot; 

Intersection; 

*IntersectionPtr  =  &Intersection; 

Interpolation; 

*InterpolationPtr  =  &Interpolation; 

Closes tApproachInDegrees ; 

*ClosestApproachInDegreesPtr  =  &ClosestApproachInDegrees 
TimeToIntersect ; 

*TimeToIntersectPtr  =  ScTimeToIntersect  ; 


/*  INITIALIZE  OUTPUT  VARIABLES  */ 

InFileLength  =  0; 

OutFileLength  =  0; 

ThetaGInDegrees  =  0.0; 


/*******************★********************★*★*******★/ 
/*  READ  ALL  SATELLITES  FROM  THE  FILE  */ 

/*★**********************★**************************/ 
ReadTLEFile  ( InFileNaitie , 

*SatArray, 

ErrorList) ; 

/***************************************************/ 
/*  DETERMINE  THE  NUMBER  OF  SATELLITES  IN  THE  FILE  */ 
/★★*********************★***************************/ 
InFileLength  =  SatArray->NuinSats  ; 

/★★**★************★★*****************★**************/ 


/*  OPEN  BOTH  OUPUT  FILES.  OutFileName  FILE  WILL  */ 
/*  HOLD  ALL  SATELLITES  THAT  ARE  ACTUALLY  */ 
/*  DETERMINED  TO  BE  INTERSECTED  BY  THE  LASER.  */ 
/*  Closes tApproachFileName  WILL  HOLD  ANY  SATS  */ 
/*  THAT  COME  CLOSE  ENOUGH  TO  THE  LASER  PATH  TO  BE  */ 
/ *  INTERPOLATED .  * / 
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/**********★★*★*★★************★*★★★★*****★*******★**/ 
if  ( (TLEOutFile  =  f open (OutFileName,  "w" ) ) ==NULL) 

{  ErrorList .AddError { "PAProcessor” , 

"Cannot  open  TLE  Output  File", 

1); 

} 

if  ( (ClosestApproachFile  =  fopen (ClosestApproachFileName,  "w”))==NULL) 
{  ErrorList .AddError ( "PAProcessor " , 

"Cannot  open  TLE  Output  File", 

1)  ; 

} 


/***★**★****************★★*★*****★*****★*★★★★****/ 

/*  BEGIN  CALCULATIONS  UNLESS  CRITICAL  ERROR  */ 
/***★★**★****★*****★★********************★*******/ 
if  (ErrorList . CriticalError ( ) ) 
return  0; 

/**★********★★★*************★*★*★*★★*********★★*★***/ 
/*  FIND  THE  CURRENT  ANGLE  OF  THETA  G  AT  THE  */ 

/*  TIME  OF  PROPAGATION  */ 

/****★**★******************************★**★*********/ 
ThetaGInRadians  =  0 ; 

FindThetaG (  Ref erenceHour , 

Ref erenceMinute , 

ReferenceSecond, 

Re  f Mod J u 1 i anDa t e , 

CalcYear , 

CalcMonth, 

CalcDay, 

CalcHour, 

CalcMinute, 

CalcSecond, 

*ThetaPtr, 

ErrorList) ; 

ThetaGInDegrees  =  ThetaGInRadians  *  RADTODEGREES ; 

/**************************************★*★*******/ 

/*  CONTINUE  UNLESS  CRITICAL  ERROR  */ 

/*************************:<f**********************/ 

if  (ErrorList . CriticalError ( ) ) 
return  0 ; 


/******************************★★★*****************★/ 
/*  CONVERT  THE  PROPAGATION  TIME  TO  A  JULIAN  DATE  */ 
/*  THAT  CAN  BE  RECOGNIZED  BY  " ProcessSatellite " .  */ 

/***************************************************^ 
ConvertCalenderToJul ian ( CalcYear , 

CalcMonth, 

CalcDay, 

CalcHour, 

CalcMinute, 

CalcSecond, 

* JulianDatePtr , 

ErrorList) ; 

/******★******★*★******★*********★********★*****★*★★*/ 
/*  PROCESS  EACH  SATELLITE  IN  ORDER  AND  DETERMINE  */ 
/*  IF  IT  IS  INTERSECTED  BY  THE  PLATFORM.  IF  IT  IS,*/ 
/*  THEN  ADD  IT  TO  THE  OUTFILE,  IF  NOT,  DISCARD  THE  */ 
/*  EPHEMERIS  AND  MOVE  ON.  */ 
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/*************★***★*★****★**********★****************/ 
OutFileLength  =  0; 

for  (i=0;  i<SatArray-->NumSats ;  i++) 

{ 

*Sat  =  SatArray’->Sat  [i]  ; 

Intersection  =  0; 

/********★*************★★*************★*************/ 
/*  CALL  "ProcessSatellite"  MODULE  TO  FIND  THE  */ 

/*  INTERSECTION  ANGLES  AND  TIME  */ 

/*******★*★★**********★**★**★********★*******★******/ 
ProcessSatellite (ABLPlatf orm, 

*Sat, 

Ref erenceHour , 

Ref erenceMinute , 

ReferenceSecond, 

Re  f ModJul ianDate , 
SecondsFromVertex, 
Interpolationincrement , 

*ThetaPtr, 

JulianDate, 

LazeDuration, 
LaserAzimuthInDegrees , 

LaserAz imuthDo t , 
LaserAzimuthDotDot , 
LaserElevationInDegrees , 
LaserElevationDot, 
LaserElevationDotDot , 
SatPositionErrorInMeters , 

Platf ormPositionErrorInMeters , 
MissilePositionErrorInMeters , 
RangeToMissilelnKilometers , 
OtherErrorAngleInDeg , 
*RangeToSatInKilometersPtr, 
*ErrorAngleInRadiansPtr , 
*SeparationAnglePtr , 

* S epAng 1 eDo t P t r , 
*SepAngleDotDotPtr , 
*IntersectionPtr , 
*InterpolationPtr , 

*TimeTo Intersec tPtr, 
*ClosestApproachInDegreesPtr, 
ErrorList) ; 


/********★*★*★*★★★**★**************★*************/ 

/*  IF  AN  INTERSECTION  OCCURS,  PUT  IT  IN  THE  */ 

/*  INTERSECTION  OUTPUT  FILE.  */ 

/*********************★*****************★**★★**★*/ 
if  (Intersection  ==  1) 

{  OutFileLength  =  OutFileLength  +  1; 

fputs (Sat->GetTLELinel { ) ,  TLEOutFile) ; 
fputs (Sat->GetTLELine2 ( ) ,  TLEOutFile) ; 

} 

/★*********★**********★★*******★★*******★********/ 

/*  IF  AN  INTERPOLATION  OCCURS,  PUT  IT  IN  THE  */ 

/*  CLOSE  APPROACH  OUTPUT  FILE.  */ 

/*****************★*★★****★★★*★★★*★**★***★*******/ 
if  (Interpolation  ==  1) 

{  Closes tApproachFileLength  =  Closes tApproachFileLength  +  1 
fputs (Sat“>GetTLELinel ( ) ,  ClosestApproachFile) ; 
fputs (Sat->GetTLELine2 ( ) ,  ClosestApproachFile) ; 

} 
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\ 

\ 


/*★****★★**★***★******************★****★***★*****/ 
/*  CONTINUE  UNLESS  CRITICAL  ERROR  */ 

/*******************★***★*********★*******★★*****/ 
if  (ErrorList .CriticalError ( ) ) 
return  0; 


} 

/*★****★**★**★****★**★*/ 

/*  CLOSE  THE  FILES  */ 

/★*****★***************  j 

fclose(TLEOutFile) ; 
fclose (ClosestApproachFile) ; 

return  0; 

} 
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D.6  PAPreprocessor.cpp 


/*  MODULE  NAME:  PAPreprocessor.cpp 
*/ 

/*  AUTHOR;  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  August  18,  1998  */ 
/*  */ 
/*  PURPOSE:  This  set  of  modules  composes  the  preprocessor  */ 
/*  used  to  evaluate  whether  or  not  the  satellites  are  ever  */ 
/*  above  the  platform  horizon.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  Builder3  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/**★************★**********************★******★******************************/ 

/**★*★**********★********★****★***/ 

/*  C++BUILDER- SPECIFIC  LIBRARIES  */ 

/**★★**************★★*************/ 

#include  <vcl.h> 

#pragma  hdrstop 

#pragma  package ( smar t_ini t ) 

/***********★*********************/ 

/*  USER-BUILT  LIBRARIES  */ 

/*********************************/ 

# include  "TimeModules .h" 

#include  "TLEInput .h" 

#include  "LaserConstants .h" 

#include  " Satellite . h" 

# include  "Aircraf t .h" 

#include  "ErrorStructure.h" 

#include  "EvaluateEphemerisModules .h” 

# include  "PAPreprocessor .h" 

/***★**********★*****★************/ 

/*  C  STANDARD  LIBRARIES  */ 

/***★*******★*********************/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

# include  <iostream.h> 

#include  <conio.h> 

# include  <math.h> 

/**************************************************************************** ^ 
/*************★*********  FUCTIONS  *****************************/ 

/*****************************y,***********************************^*******^^*^ 

/*******************icic***ic  ************  ********-k*  *************  *******-k-k-k*****ic/ 


/*  FUNCTION  NAME:  PAPreprocessor  */ 
/*  AUTHOR!  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  October  6,  1998  */ 
/*  *  / 
/*  PURPOSE:  This  procedure  will  read  in  an  input  file  of  Two  Line  */ 
/*  Element  (TLE)  sets  and  perform  an  analysis  to  determine  */ 
/*  whether  or  not  they  are  within  view  of  the  airborne  */ 
/*  platform.  If  a  satellite  is  in  view,  it  will  be  added  */ 
/*  to  the  ouput  file,  which  is  the  input  file  for  the  main  */ 
/*  processor.  */ 
/*  */ 
/*  INPUTS:  NAME:  DEFINITION:  */ 


/*  InFileName  Holds  name  of  the  satellite  file*/ 

/*  OutFileName  File  that  holds  the  sats  in  view*/ 
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/* 

InFileLength 

The  total  number 

/* 

ABLPlatform 

Holds  all  information  about  ABL 

*/ 

/* 

Platform  position/disposition 

*/ 

/* 

Re  f  er enc  eHour 

This  holds  the  value  of  Theta  G 

*/ 

/* 

at  RefModJulianDate .  The  angle 

*/ 

/* 

of  Theta  G  is  given  in  hours, 

*/ 

/* 

minutes,  and  seconds  instead  of 

*/ 

/* 

degrees,  where  24  hrs  =  360  deg 

*/ 

/* 

Ref erenceMinute 

Holds  the  minutes  of  Theta  G  at 

*/ 

/* 

RefModJulianDate . 

*/ 

/* 

ReferenceSecond 

Holds  the  seconds  of  Theta  G  at 

*/ 

/* 

RefModJulianDate . 

*/ 

/* 

Re  f Mo  d Ju 1 i anDa t e 

This  is  the  reference  date  when 

*/ 

/* 

an  actual  observation  of  the 

*/ 

/* 

true  value  of  theta  G  was  made. 

*/ 

/* 

CalcYear 

Holds  the  current  calender  year 

*/ 

/* 

Calcmonth 

Holds  the  Calender  month (1  -  12) 

*/ 

/* 

Calc Day 

Holds  calender  day 

*/ 

/* 

CalcHour 

Holds  the  calender  hour 

*/ 

/* 

CalcMinute 

Holds  the  calender  minute 

*/ 

/* 

CalcSecond 

Holds  the  calender  second 

*/ 

/* 

T imeToNextRun 

The  amount  of  time  for  which  the*/ 

/* 

current  run  must  last.  This  is 

*/ 

/* 

To  determine  how  much  time  in 

*/ 

/* 

seconds  will  transpire  before 

*/ 

/* 

next  update  is  received. 

*/ 

/* 

*/ 

/* 

OUTPUTS : 

NAME: 

DESCRIPTION: 

*/ 

/* 

InFileLength 

The  total  number  of  satellites 

*/ 

/*. 

that  have  been  evaluated  in  the 

*/ 

/* 

InFile 

*/ 

/* 

OutFileLength 

The  total  number  of  satellites 

*/ 

/* 

that  are  in  view  of  the  platform*/ 

/* 

and  have  been  put  in  the  out file*/ 

/* 

ThetaGInDegrees 

The  rotation  angle  between  the 

*/ 

/* 

Earth’s  current  ECEF  position 

*/ 

/* 

and  its  ECI  position. 

*/ 

/* 

ErrorList 

Errors  that  have  occured 

*/ 

/* 

*/ 

/* 

THE  FINAL  OUTPUT 

IS 

THE 

ACTUAL  OUTFILE  ITSELF  WHICH  IS 

*/ 

/* 

WRITTEN  DIRECTLY 

TO 

DISK  SO  IT  CAN  BE  ACCESSED  BY  THE 

*/ 

/* 

MAIN  PROCESSOR. 

*/ 

/* 

*/ 

/* 

COMPILER: 

Borland  C++  Builder3 

Standard  version 

*/ 

/* 

This  compiler  should 

.  be 

used  to  compile  and  link. 

*/ 

/* 

*/ 

/****************★******************************************************★****/ 

PAPreprocessor (  char 
char 
int 
int 

struct 

int 

int 

double 

double 

int 

int 

int 

int 

int 

double 

double 


InFileNameEMAXNAMELENGTH]  , 
OutFileName[MAXNAMELENGTH]  , 
ficInFileLength, 
&OutFileLength, 

Aircraft  &ABLPlatfonn, 

Ref erenceHour , 

Ref erenceMinute , 
ReferenceSecond, 

Re  f Mod J u 1 i anDa t e , 

CalcYear, 

CalcMonth, 

CalcDay, 

CalcHour , 

CalcMinute, 

CalcSecond, 

TimeToNextRun , 
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double  &ThetaGInDegrees , 
ErrorStructure  &ErrorList) 

{ 

/*****************★***★*********/ 

/*  VARIABLE  DECLARATIONS  */ 

/****★*************★***********★/ 

SatStructure  *SatArray  =  new  SatStructure; 

Satellite*  Sat; 

Sat  =  new  Satellite; 

FILE  *TLEOutFile; 

int  SatelliteInView; 

int  *SatInViewPtr  =  ScSatellitelnView; 

int  Orbit  InView; 

int  *OrbitInViewPtr  =  &OrbitInView; 

double  ThetaGInRadians ; 

double  *ThetaPtr  =  &ThetaGInRadians ; 

int  i ; 

double  JulianDate; 

double  *JulianDatePtr  =  & JulianDate; 
double  Inclination; 

double  *InclinationPtr  =  ^Inclination; 
double  RightAscension; 

double  *RightAscensionPtr  =  StRightAscension; 
double  Eccentricity; 

double  *EccentricityPtr  =  &Eccentricity; 
double  MeanMotion; 

double  *MeanMotionPtr  =  &MeanMotion; 
double  Ar gumen to f Perigee ; 

double  *ArguinentOf PerigeePtr  =  & Ar gumen tO f Peri gee; 
double  MeanAnomaly; 

double  *MeanAnomalyPtr  =  &MeanAnomaly; 
double  SatX; 

double  *SatXPtr  =  ScSatX; 
double  SatY; 

double  *SatyPtr  =  &SatY; 
double  SatZ; 

double  *SatZPtr  =  &SatZ; 
double  SatXdot; 

double  *SatXdotPtr  =  &SatXdot; 
double  SatYdot; 

double  *SatYdotPtr  =  &SatYdot; 
double  SatZdot; 

double  *SatZdotPtr  =  ficSatZdot; 
double  Delta; 

double  *DeltaPtr  =  &Delta; 
double  TimeToRise; 

double  *TimeToRisePtr  =  ScTimeToRise; 
double  Dvector; 

double  *DvectorPtr  =  ScDvector; 
double  CriticalRadius; 

double  *CriticalRadiusPtr  =  &CriticalRadius ; 
double  SatRadius; 

double  *SatRadiusPtr  =  &SatRadius; 


/*********★********★**********************★★★******★/ 
/*  INITIALIZE  OUTPUT  VARIABLES  */ 

/*****★★***********★*************★*************★****/ 
InFileLength  =  0; 

OutFileLength  =  0; 

ThetaGInDegrees  =  0.0; 
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/******************************* ******************** ^ 

/*  READ  ALL  SATELLITES  FROM  THE  FILE  */ 

/****************★********************************** y 

ReadTLEFile (InFileName, 

* Sat Array, 

ErrorList) ; 

/*************************************************** ^ 

/*  DETERMINE  THE  NUMBER  OF  SATELLITES  IN  THE  FILE  */ 

/****★********************************************** ^ 
InFileLength  =  SatArray->NuinSats; 

if  (  (TLEOutFile  =  fopen  (OutFileName,  ''W  )  )  ==NULL) 

{  ErrorList .AddError ( "PAProcessor" , 

"Cannot  open  TLE  Output  File", 

1)  ; 

} 

/*★*****★********★**★**************************** y 

/*  BEGIN  CALCULATIONS  UNLESS  CRITICAL  ERROR  */ 

/********.****************************************  ^ 
if  (ErrorList .CriticalError () ) 
return  0; 

/***************************************************/ 

/*  FIND  THE  CURRENT  ANGLE  OF  THETA  G  AT  THE  */ 

/*  TIME  OF  PROPAGATION  .  */ 

/*************************************************** ^ 
ThetaGInRadians  =  0; 

FindThetaG(  ReferenceHour , 

Ref erenceMinute , 

Ref erenceSecond , 

Re f Mod Ju 1 i anDa t e , 

CalcYear , 

CalcMonth, 

CalcDay, 

CalcHour, 

CalcMinute, 

CalcSecond, 

*ThetaPtr , 

ErrorList) ; 


/★*********************************************** ^ 
/*  CONTINUE  UNLESS  CRITICAL  ERROR  */ 

/*******************************************^****^ 
if  (ErrorList.CriticalError {) ) 
return  0; 


/*********************** **************************^^^ 
/*  CONVERT  THE  PROPAGATION  TIME  TO  A  JULIAN  DATE  */ 
/*  THAT  CAN  BE  RECOGNIZED  BY  "EvaluateEphemeris" .  */ 

/*****************************************^*********^ 
Conver tCalenderTo Jul ian ( CalcYear , 

CalcMonth, 

CalcDay, 

CalcHour, 

CalcMinute, 

CalcSecond, 

*JulianDatePtr, 

ErrorList) ; 
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/**************■****************★*********************/ 
/*  PROCESS  EACH  SATELLITE  IN  ORDER  AND  DETERMINE  */ 
/*  IF  IT  IS  IN  VIEW  OF  THE  PLATFORM.  IF  IT  IS,  */ 

/*  THEN  ADD  IT  TO  THE  OUTFILE,  IF  NOT,  DISCARD  THE  */ 
/*  EPHEMERIS  AND  MOVE  ON.  */ 

/**★***★**★*★******★*******★****★********************/ 
OutFileLength  =  0; 

for  (i=0;  i<SatArray-'>NiiinSats ;  i++) 

{ 

*Sat  =  SatArray'“>Sat  [i]  ; 

SatelliteInView  =  0; 

EvaluateEphemeris (  *Sat, 

ABLPlatform, 
ThetaGInRadians , 
JulianDate, 

TimeToNextRun , 
*SatInViewPtr , 
*OrbitInViewPtr , 

*SatXPtr, 

*SatYPtr, 

*SatZPtr, 

*SatXdotPtr, 

*SatYdotPtr, 

*SatZdotPtr, 

*DeltaPtr , 

*InclinationPtr , 
*RightAscensionPtr, 
*EccentricityPtr , 
*MeanMotionPtr , 

*ArgumentOf Per igeePtr , 
*MeanAnomalyPtr , 
*DvectorPtr , 

*TimeToRisePtr , 
*CriticalRadiusPtr, 
*SatRadiusPtr , 

ErrorList) ; 


if  (SatelliteInView  ==  1) 

{  OutFileLength  =  OutFileLength  +  1; 

fputs  (Sat’->GetTLELinel  ( )  ,  TLEOutFile)  ; 
fputs (Sat->GetTLELine2 ( ) ,  TLEOutFile) ; 

} 

ThetaGInDegrees  =  ThetaGInRadians  *  RADTODEGREES ; 

/*******************************i«f****************/ 

/*  CONTINUE  UNLESS  CRITICAL  ERROR  */ 

/************************************************/ 
if  (ErrorList . CriticalError ( ) ) 
return  0; 

} 

fclose (TLEOutFile) ; 
return  0; 

} 
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D.7  ProcessSatellite.cpp 


/****************************************************************************/ 
/*  MODULE  NAME:  ProcessSatellite.cpp  */ 

/*  AUTHOR:  Captain  David  Vloeditian  */ 

/*  DATE  CREATED:  14  January,  1999  */ 

/*  */ 

/*  PURPOSE:  This  module  supports  the  meat  of  the  Main  Processor  and  */ 

/*  is  used  to  evaluate  the  error  angle  and  the  displacement*/ 

/*  angle  between  the  laser  position  vector  in  the  REN  frame*/ 

/*  and  the  satellite  position  vector  in  the  same  frame.  It*/ 

/*  uses  this  angle  and  its  rate  of  change  to  determine  when*/ 

/*  and  if  the  satellite  will  intersect  the  path  of  the  */ 

/*  laser.  */ 

/*  */ 

/*  COMPILER:  Borland  C++  Builder 3  Standard  version  */ 

/*  This  compiler  should  be  used  to  compile  and  link.  */ 

/*  */ 


/**********************************★***★★********★****************★**★*★*****/ 

/★********★**★********************/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

y'******************  ************★**/ 

# include  <vcl.h> 

#pragma  hdrstop 

#pragma  package ( smar t_ini t ) 

/*******************★*************/ 

/*  USER-BUILT  LIBRARIES  */ 

/******★**★**★*******★*★****★*★***/ 

#include  "TimeModules .h” 

# include  "TLEInput .h" 

#include  "LaserConstants .h" 

# include  "Satellite .h" 

# include  "Aircraft.h" 

# include  "Errors true ture.h" 

# include  "EvaluateEphemerisModules . h” 

# include  "SGP4SupportModules .h" 
tinclude  "FindDisplacementAngleModules .h" 

#include  "TargetSatellite .h" 

#include  "TargetPlatform.h” 

# include  "TargetLaser .h” 

#include  "ProcessSatellite.h" 

/**★********★*★★******************/ 

/*  C  STANDARD  LIBRARIES  */ 

/******************★*****★********/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 
tinclude  <iostream.h> 

#include  <conio.h> 

# include  <math.h> 

/********★**★**★★******★******★****★**★***************★★*★★*★*★******★*****★*/ 
/***********************  FUCTIONS  *****************************/ 

/****************************************************************************/ 

/******************★************★****★**********★**★******************★******/ 


/*  FUNCTION  NAME:  ProcessSatellite  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  January  13,  1999  */ 
/*  */ 


/*  PURPOSE:  This  module  supports  the  meat  of  theMain  Processor  and  */ 

/*  is  used  to  evaluate  the  error  angle  and  the  displacement*/ 
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/* 

/* 

/* 

/* 

/* 

/* 

/*  INPUTS: 
/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*  OUTPUTS: 
/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


angle  between  the  laser  position  vector  in  the  REN  frame*/ 
and  the  satellite  position  vector  in  the  same  frame.  It*/ 
uses  this  angle  and  its  rate  of  change  to  determine  when*/ 
and  if  the  satellite  will  intersect  the  path  of  the  */ 
laser,  */ 

*/ 

NAME:  DEFINITION:  */ 

Sat  Holds  all  ephemeris  information  */ 

for  the  Satellite  being  studied  */ 
ABLPlatform  Holds  all  information  about  ABL  */ 

Platform  position/disposition  */ 
JulianDate  The  time  to  which  the  position  */ 

of  sat  should  be  propagated  to  */ 
ThetaGInRadians  The  angle  between  the  Greenwich  */ 

Meridian  and  the  Vernal  Equinox  */ 


at  JulianDate,  */ 

LazeDuration  The  amount  of  time  in  seconds  */ 

that  the  laser  will  be  on.  */ 

LazerAzimuthInDegrees  Lazer  Azimuth  at  Laze  Start  time*/ 

in  Degrees  */ 

LazerAzimuthDot  The  rate  of  change  of  the  Az  */ 

in  Degrees/Sec,  */ 

LazerAzimuthDotDot  The  rate  of  change  of  the  rate  */ 

of  change  of  the  Azimuth  (Accel)*/ 
in  Degrees /Sec^2  */ 

LazerElevationInDegrees  Lazer  Elevation  at  Laze  Start  */ 

in  Degrees  * / 

LazerElevationDot  The  rate  of  change  of  the  El  */ 

in  Degrees /Sec.  */ 

LazerElevationDotDot  The  rate  of  change  of  the  rate  */ 

of  change  of  the  Elevat.  (Accel)*/ 
in  Degrees /Sec^2  */ 

SatPositionErrorInMeters  Holds  the  radius  of  the  error  */ 

spheroid  that  describes  the  */ 

area  in  which  the  satellite  is  */ 
known  to  exist  (in  meters) .  */ 

PlatformPositionError ...  Holds  the  radius  of  the  error  */ 

spheroid  that  describes  the  */ 

area  in  which  the  platform  is  */ 
known  to  exist  (in  meters) .  */ 

MissilePositionError . . .  Holds  the  radius  of  the  error  */ 

spheroid  that  describes  the  */ 

area  in  which  the  missile  is  */ 
known  to  exist  (in  meters) .  */ 

RangeToMissileInKilo . . .  The  Range  to  the  missile  (km)  */ 

OtherErrorAnglesInDeg  Holds  any  other  error  angles  */ 

(in  degrees)  that  may  be  a  */ 

significant  source  of  error.  */ 

This  should  usually  be  set  to  */ 

zero  (0.0)  float.  */ 

NAME:  DESCRIPTION:  */ 

Range InKilometers  Holds  the  range  of  the  aircraft  */ 

to  the  satellite  in  kilometers.  */ 


ErrorAngleInRadians  The  total  error  angle  in  radians*/ 

SeparationAngle  The  separation  (in  radians)  of  */ 

the  LaserRENRho  and  */ 

Platf ormSatRENRho  vectors.  */ 

SeparationAngleDot  The  rate  of  change  (in  rad/ sec)  */ 

of  the  separation  of  LaserRENRho*/ 
Platf ormSatRENRho  vectors.  */ 

SeparationAngleDotDot  The  acceleration  (in  rad/sec^2)  */ 

of  the  separation  of  LaserRENRho*/ 
and  PlatfojnnSatRENRho  vectors.  */ 
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double  SecondsFromVertex, 

double  Interpolationincrement , 

double  &ThetaGInRad, 

double  JulianDate, 

double  LazeDuration, 

double  LaserAzimuthInDegrees , 

double  LaserAzimuthDot ; 

double  LaserAzimuthDotDot, 

double  LaserElevationInDegrees , 

double  LaserElevationDot , 

double  LaserElevationDotDot , 

double  SatPositionErrorInMeters , 

double  Platf ormPositionErrorlnMeters , 

double  MissilePositionErrorInMeters, 

double  RangeToMissileInKilometers , 

double  OtherErrorAngleInDeg, 

double  &RangeInKilometers, 

double  &ErrorAngleInRadians, 

double  ScSeparationAngle, 

double  ScSepAngleDot, 

double  &SepAngleDotDot , 

int  Sclntersection, 

int  Sclnterpolation, 

double  ScTimeToIntersect , 

double  ScClosestApproachlnDegrees , 

ErrorStructure  &ErrorList) 

{ 

/**********★**★************★**★★/ 

/*  VARIABLE  DECLARATIONS  */ 

/****★*★*★**************★★★*****/ 
double  Check; 
double  Quadrat icSolnOne; 
double  QuadraticSolnTwo; 
double  PlatformSatRENRhoR; 

double  *PlatformSatRENRhoRPtr  =  &PlatfonnSatRENRhoR; 
double  PlatformSatRENRhoE; 

double  *PlatformSatRENRhoEPtr  =  ScPlatformSatRENRhoE; 
double  PlatformSatRENRhoN; 

double  *PlatforinSatRENRhoNPtr  =  ScPlatf orraSatRENRhoN; 
double  PlatformSatRENRhoRDot; 

double  *PlatformSatRENRhoRDotPtr  =  &PlatformSatRENRhoRDot ; 
double  PlatformSatRENRhoEDot; 

double  *PlatformSatRENRhoEDotPtr  =  & PlatformSatRENRhoEDot; 
double  PlatformSatRENRhoNDot; 

double  *PlatformSatRENRhoNDotPtr  =  ScPlatformSatRENRhoNDot ; 
double  PlatformSatRENRhoRDotDot ; 
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double  *PlatformSatRENRhoRDotDotPtr  =  &Platf ormSatRENRhoRDotDot ; 
double  PlatformSatRENRhoEDotDot ; 

double  *PlatformSatRENRhoEDotDotPtr  =  &Platf ormSatRENRhoEDotDot ; 
double  PlatformSatRENRhoNDotDot ; 

double  *PlatformSatRENRhoNDotDotPtr  =  ScPlatformSatRENRhoNDotDot ; 
double  LaserRENRhoR; 

double  *LaserRENRhoRPtr  =  &LaserRENRhoR; 
double  LaserRENRhoE; 

double  *LaserRENRhoEPtr  =  &LaserRENRhoE; 
double  LaserRENRhoN; 

double  *LaserRENRhoNPtr  =  &LaserRENRhoN; 
double  LaserRENRhoRDot; 

double  *LaserRENRhoRDotPtr  =  ScLaserRENRhoRDot  ; 
double  LaserRENRhoEDot ; 

double  *LaserRENRhoEDotPtr  =  ScLaserRENRhoEDot ; 
double  LaserRENRhoNDot; 

double  *LaserRENRhoNDotPtr  =  &LaserRENRhoNDot ; 
double  LaserRENRhoRDotDot ; 

double  *LaserRENRhoRDotDotPtr  =  &LaserRENRhoRDotDot ; 
double  LaserRENRhoEDotDot; 

double  *LaserRENRhoEDotDotPtr  =  &:LaserRENRhoEDotDot ; 
double  LaserRENRhoNDotDot; 

double  *LaserRENRhoNDotDotPtr  =  &LaserRENRhoNDotDot ; 
char  buffer  [MAXMESSAGELENGTH]  =  "  ; 

/*****★*★****★*****************************************/ 

/*  FIND  THE  SEPARATION  ANGLE  BETWEEN  THE  SATELLITE  */ 

/*  AND  LASER  POSITION  VECTORS.  ALSO,  FIND  THE  RATE  */ 

/*  OF  CHANGE  AND  ACCELERATION  OF  THIS  ANGLE  AS  */ 

/*  NEARLY  AS  POSSIBLE  GIVEN  THE  PREEXISTING  */ 

/*  CONDITIONS.  ■  */ 

/*****★******************★*****************************/ 
FindDisplacementAngles (Platform, 

Sat, 

ThetaGInRad, 

JulianDate, 

LaserAzimuthlnDegrees , 

LaserAzimuthDot , 

LaserAzimuthDotDot , 

LaserElevationInDegrees , 

LaserElevationDot , 

LaserElevationDotDot , 

SatPositionErrorInMeters , 

Platf ormPositionErrorInMeters , 
MissilePositionErrorInMeters , 
RangeToMissileInKilometers , 
OtherErrorAngleInDeg , 

*PlatfonnSatRENRhoRPtr, 

*PlatformSatRENRhoEPtr, 

*  Plat  f ormSatRENRhoNPtr , 

*PlatformSatRENRhoRDotPtr, 

*PlatformSatRENRhoEDotPtr , 

*PlatformSatRENRhoNDotPtr, 

*PlatformSatRENRhoRDotDotPtr, 

*PlatformSatRENRhoEDotDotPtr, 

*PlatformSatRENRhoNDotDotPtr, 

*LaserRENRhoRPtr , 

*LaserRENRhoEPtr , 

*LaserRENRhoNPtr , 

*LaserRENRhoRDotPtr , 

*LaserRENRhoEDotPtr , 

*LaserRENRhoNDotPtr , 

*LaserRENRhoRDotDotPtr, 
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*LaserRENRhoEDotDotPtr , 
*LaserRENRhoNDotDotPtr , 
RangeInKilometers , 
ErrorAngleInRadians , 
SeparationAngle , 
SepAngleDot, 
SepAngleDotDot , 
ErrorList) ; 


/★★it* *********************************** *********/ 

/*  IF  ACCELERATION  IS  ZERO,  THEN  AN  ERROR  HAS  */ 

/*  ALMOST  CERTAINLY  OCCURRED.  TRAP  THIS  ERROR*/ 

/*  AND  NOTIFY  THE  USER.  */ 

/************************************************^ 
if  (SepAngleDotDot  ==  0.0) 

{  sprint f (buffer, "Satellite  SSC:  %d, Accel,  is  zero .. .Unable  to 

calculate" , 

Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddErr or ( "ProcessSatellite" , 
buffer, 

1); 

return; 

} 


/*★******************★**★*******★******★★★*******/ 
/*  IF  THE  SEPARATION  ANGLE  IS  CURRENTLY  */ 

/*  SMALLER  THAT  THE  ERROR  ANGLE,  THEN  THE  SAT  */ 
/*  IS  CURRENTLY  BEING  INTERSECTED  BY  THE  BEAM.  */ 

/*****************T»r**********ifr*******************/ 

if  (SeparationAngle  <=ErrorAngleInRadians) 

{  Intersection  =  1; 

TimeToIntersect  =  0.0; 

) 

/************* **********ifr**********************^*^ 

/*  OTHERWISE,  USE  THE  QUADRATIC  FORMULA  TO  FIND*/ 


/*  THE  ROOTS  TO  THE  TAYLOR  SERIES  EXPANSION  OF  */ 

/*  THE  SEPARTION  ANGLE.  (IE:  */ 

/*  */ 

/*  B  =  SEP  ANGLE  ★/ 

/*  BDot  =  RATE  OF  CHANGE  OF  SEP  ANGLE  */ 

/*  BDotDot  =  ACCEL  OF  SEPARATION  ANGLE  */ 

/*  A  =  ERROR .ANGLE  DESCRIBING  POSITION  ERROR  OF*/ 

/*  SATELLITE.  */ 

/*  T  =  TIME  ELAPSED  */ 

/*  */ 

/*  TAYLOR'S  SERIES  TO  SECOND  DEGREE  */ 

/*  */ 

/*  E  =  B  +  BDot*T  +  (1/2 )  BDotDot  (T'^a)  */ 

/*  (or)  */ 

/*  0  =  (B-E)  +  BDot*T  +  (l/2)*BDotDot*(T'*'2)  */ 

/*  */ 

/*  TO  FIND  TIMES  THAT  SATISFY  INTERSECTION  */ 

/*  OF  LASER  WITH  SAT,  APPLY  QUADRATIC  EQUATION  */ 

/*  TO  TAYLOR'S  EXPANSION  WITH:  */ 

/*  */ 

/*  A  =  (1/2) *BDotDot  */ 

/*  B  =  BDot  */ 

/*  C  =  (B-E)  */ 


else 
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/*  FIRST  FIND:  */ 

/*  */ 

/*  sqrt(B"^2  -4AC)  */ 


{  Check  =  pow(SepAngleDot, 2 )  - 

2.0  *  SepAngleDotDot  * 

(SeparationAngle  -  ErrorAngleInRadians) ; 


/*★**★********★********★**★**********************/ 

/*  IF  INSIDE  sqrt  IS  NEGATIVE,  THEN  NO  REAL  */ 

/*  ROOTS,  AND  THERE  WILL  BE  NO  INTERSECTION  */ 

/★*********★*****************************★*******/ 
if  (Check  <  0.0) 

{  Intersection  =  0; 

TimeToIntersect  =  0.0; 

} 

/******★***★****************★********************/ 

/*  OTHERWISE,  FIND  BOTH  QUADRATIC  ROOTS,  AND  */ 

/*  USE  THE  ONE  THAT  IS  CLOSEST  IN  THE  FUTURE  */ 

/*  (IE:  THE  ONE  THAT  IS  LEAST  POSITIVE,  BUT  NOT*/ 

/*  NEGATIVE.  */ 

/************************************************/ 
else 

{  QuadraticSolnOne  =  (-SepAngleDot  +  sqrt (Check))  / 

SepAngleDotDot ; 

Quadrat icSolnTwo  =  (-SepAngleDot  -  sqrt (Check))  / 
SepAngleDotDot ; 

if  ((QuadraticSolnOne  >  0 . 0) && (QuadraticSolnTwo  >  0.0) 
{  if  (QuadraticSolnOne  >  QuadraticSolnTwo) 
TimeToIntersect  =  QuadraticSolnTwo; 

else 

TimeToIntersect  =  QuadraticSolnOne; 

} 

else  if  (QuadraticSolnOne  >  0.0) 

TimeToIntersect  =  QuadraticSolnOne; 
else  if  (QuadraticSolnTwo  >  0.0) 

TimeToIntersect  =  QuadraticSolnTwo; 
else  TimeToIntersect  =  QuadraticSolnTwo; 


/************************************************/ 
/*  NOW,  COMPARE  THIS  FUTURE  TIME  WITH  THE  */ 

/*  DURATION  OF  THE  LAZE  TIME,  IF  DURATION  IS  */ 

/*  LARGER  THAN  INTERSECTION  TIME,  THEN  AN  */ 

/*  INTERSECTION  SHOULD  THEORETICALLY  OCCUR.  */ 

/*  */ 
/*  NOTE! : :  */ 

/*  USE  CAUTION  WITH  THIS  FORECASTING  TECHNIQUE.*/ 

/*  THIS  ASSUMES  THAT  THE  INITIAL  CONDITIONS  */ 

/*  TRUE  THROUGHOUT  THE  LAZE,  WHICH  PROBABLY  */ 

/*  WILL  NOT  HAPPEN.  THEREFORE,  THE  FORECAST  */ 

/*  MAY  DEVIATE  FROM  REALITY  MORE  AND  MORE  AS  */ 

/*  LAZE  DURATION  AND  ACCELERATIONS  ARE  */ 

/*  INCREASED.  */ 

/************************************************ ^ 
if  (TimeToIntersect  <  0.0) 

Intersection  =  0; 

else 

{  if  (TimeToIntersect  >  LazeDuration) 
Intersection  =  0; 

else 

Intersection  =  1; 
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} 


} 


/***************************************************/ 
/*  JUST  BECAUSE  AN  INTERSECTION  WAS  "FORECASTED"  */ 
/*  USING  INITIAL  CONDITIONS,  DOES  NOT  MEAN  AN  */ 

/*  INTERSECTION  WILL  OCCUR.  THE  ABOVE  FORECAST  */ 
/*  IS  ONLY  A  ROUGH  APPROXIMATION.  NOW,  IF  A  */ 

/*  INTERSECTION  IS  FORECASTED,  WE  WILL  ACTUALLY  */ 
/*  STUDY  THE  LOCATION  OF  THE  LASER  BEAM  AND  THE  */ 
/*  FOR  A  GIVEN  TIME  " SecondsBeforeVertex"  AND  */ 

/*  ACTUALLY  STEP  THROUGH  BY  TIME  INCREMENTS  OF  */ 
/*  LENGTH  "Interpolationlncrement”  TO  SEE  IF  THE  */ 
/*  LASER  ACTUALLY  GETS  CLOSE  ENOUGH  TO  INTERSECT.  */ 
/*  THIS  CANNOT  BE  DONE  FOR  EVERY  SATELLITE,  */ 

/*  BECAUSE  THE  CALCULATIONS  ARE  TIME  CONSUMING.  */ 
/*  INTERPOLATION  IS  DONE  BY  SLIGHTLY  MODIFYING  */ 
/*  THE  TARGETING  MODULES  TO  ACCEPT  SLIGHT  POSITION*/ 
/*  CHANGES  TO  REFLECT  TIME  PASSING.  THIS  ALL  */ 

/*  ASSUMES  THAT  THE  PLATFORM  DOES  NOT  CHANGE  */ 

/*  COURSE  OR  ACCELERATE  MID-FIRE.  */ 


/*****************************★****★**★***★★*******★/ 

if  (Intersection) 

{  Interpolation  =  1; 

InterpolateVertex ( Platform, 

Sat, 

Ref erenceHour , 

Ref erenceMinute , 

Ref erenceSecond , 

Re  f ModJul ianDa te , 

JulianDate, 

LazeDuration, 

LaserAzimuthInDegrees , 

Las  er Az imu thDo  t , 

LaserAz imuthDotDot , 

LaserElevationInDegrees , 

Las  erEl eva t i onDo  t , 

LaserElevationDotDot , 

ErrorAngleInRadians , 

SecondsFromVertex, 

Interpolationlncrement , 

TimeToIntersect , 

ClosestApproachInDegrees , 

ErrorList) ; 

if  ( (ClosestApproachInDegrees*DEGTORADIANS)  <  ErrorAngleInRadians) 
Intersection  =  1; 

else 

Intersection  =  0; 

.  TimeToIntersect  =  0.0; 

} 

else 

{  Interpolation  =  0; 

TimeToIntersect  =  0.0; 

ClosestApproachInDegrees  =  0.0; 

} 

return; 

} 

/  ***-k*’kicic***icici,i,ic***ici,ic-k*ic***icic-k*  *********  *icic********ic**ic*iric*****-k***  ***** -kic  *  / 
/*  FUNCTION  NAME:  InterpolateVertex  */ 

/*  AUTHOR:  Captain  David  Vloedman  */ 
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/*  DATE  CREATED: 
/* 

/*  PURPOSE: 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/ *  INPUTS : 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


January  13,  1999  */ 

*/ 

This  module  supports  the  meat  of  the  Main  Processor  and  */ 
is  used  to  evaluate  the  error  angle  and  the  displacement*/ 
angle  between  the  laser  position  vector  in  the  REN  frame*/ 


and  the  satellite  position  vector  in  the  same  frame  */ 

during  the  relatively  short  time  of  estimated  closest  */ 
approach  of  the  two  vectors.  The  smaller  the  inter-  */ 
polation  increment,  the  more  accurate  the  estimate,  and  */ 
the  longer  the  processing  time.  */ 

*/ 

NAME:  DEFINITION:  */ 

Sat  Holds  all  ephemeris  information  */ 

for  the  Satellite  being  studied  */ 
ABLPlatform  Holds  all  information  about  ABL  */ 

Platform  position/disposition  */ 

ReferenceHour  This  holds  the  value  of  Theta  G  */ 

at  RefModJulianDate .  The  angle  */ 
of  Theta  G  is  given  in  hours,  */ 
minutes,  and  seconds  instead  of  */ 
degrees,  where  24  hrs  =  360  deg  */ 
ReferenceMinute  Holds  the  minutes  of  Theta  G  at  */ 

RefModJulianDate.  */ 

ReferenceSecond  Holds  the  seconds  of  Theta  G  at  */ 

RefModJulianDate.  */ 

RefModJulianDate  This  is  the  reference  date  when  */ 

an  actual  observation  of  the  */ 
true  value  of  theta  G  was  made,  */ 
JulianDate  The  time  to  which  the  position  */ 

of  sat  should  be  propagated  to  */ 
ThetaGInRadians  The  angle  between  the  Greenwich  */ 

Meridian  and  the  Vernal  Equinox  */ 
at  JulianDate.  */ 

LazeDuration  The  amount  of  time  in  seconds  */ 

that  the  laser  will  be  on.  */ 

LazerAzimuthInDegrees  Lazer  Azimuth  at  Laze  Start  time*/ 

in  Degrees  */ 

LazerAzimuthDot  The  rate  of  change  of  the  Az  */ 

in  Degrees/Sec.  */ 

LazerAzimuthDotDot  The  rate  of  change  of  the  rate  */ 

of  change  of  the  Azimuth  (Accel)*/ 
in  Degrees /Sec^2  */ 

LazerElevationInDegrees  Lazer  Elevation  at  Laze  Start  */ 

in  Degrees  */ 

LazerElevationDot  The  rate  of  change  of  the  El  */ 

in  Degrees/Sec.  */ 

LazerElevationDot Dot  The  rate  of  change  of  the  rate  */ 

of  change  of  the  Elevat.  (Accel)*/ 
in  Degrees /Sec^2  */ 

PositionError  Holds  the  radius  of  the  error  */ 

spheroid  that  describes  the  */ 

area  in  which  the  satellite  is  */ 
known  to  exist  (in  meters) .  */ 

OtherErrorAnglesInDeg  Holds  any  other  error  angles  */ 

(in  degrees)  that  may  be  a  */ 

significant  source  of  error.  */ 

This  should  usually  be  set  to  */ 
zero  (0.0)  float.  */ 

SecondsFromVertex  This  holds  the  amount  of  time  */ 

before  the  forecasted  intercept  */ 
time  (if  any)  of  the  satellite  */ 
that  should  be  studied  more  */ 


closely  (interpolated)  to  see  if*/ 
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/* 

/* 

/* 

/* 

/* 

/*  OUTPUTS: 
/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*  COMPILER: 
/* 

/* 


Interpolationincrement 

NAME: 

RangeInKi 1 ome  t er s 

ErrorAngleInRadians 

SeparationAngle 

SeparationAngleDot 

SeparationAngleDotDot 

Intersection 

TimeToIntersect 

ErrorList 


an  intersection  actually  occurs  */ 
The  length  of  the  time  step  in  */ 
the  interpolation  sequence.  This*/ 
is  the  length  of  time  between  */ 
steps.  */ 
DESCRIPTION:  */ 
Holds  the  range  of  the  aircraft  */ 
to  the  satellite  in  kilometers.  */ 
The  total  error  angle  in  radians*/ 
The  separation  (in  radians)  of  */ 


the  LaserRENRho  and  */ 
PlatformSatRENRho  vectors.  */ 
The  rate  of  change  (in  rad/ sec)  */ 
of  the  separation  of  LaserRENRho*/ 
PlatformSatRENRho  vectors.  */ 
The  acceleration  (in  rad/sec'^2)  */ 
of  the  separation  of  LaserRENRho*/ 
and  PlatformSatRENRho  vectors.  */ 
Will  the  laser  intersect  this  */ 
satellite?  1=YES,  2=N0  */ 
How  much  time  {in  seconds)  is  */ 
forecasted  to  go  by  before  the  */ 
laser  intersects  the  satellite.  */ 
The  Errors  which  have  occurred  */ 


*/ 


Borland  C++  Builder 3  Standard  version  */ 

This  compiler  should  be  used  to  compile  and  link.  */ 

*/ 


void  InterpolateVertex{ struct  Aircraft  ScPlatform, 

struct  Satellite  &Sat, 
int  ReferenceHour , 

int  ReferenceMinute, 

double  ReferenceSecond, 
double  RefModJulianDate, 
double  JulianDate, 
double  LazeDuration, 
double  LaserAzimuthInDegrees, 
double  LaserAzimuthDot, 

LaserAz imuthDo tDot , 
LaserElevationInDegrees , 
LaserElevationDot , 
LaserElevationDo tDot , 
ErrorAngleInRadians , 
Seconds FromVertex, 
Interpolationincrement , 
&TimeToIntersect , 
ScClosestApproachlnDegrees , 


double 
double 
double 
double 
double 
double 
double 
double 
double 

ErrorStructure  &ErrorList) 


double 

Dummy; 

double 

*DuramyPtr  =  &Dummy; 

double 

TimeOfForecastedVertex; 

double 

InterpolationStartTime; 

double 

Stepinterval ; 

iiit 

Continue; 

double 

ThetaGInRadians ; 

double 

*ThetaPtr  =  &ThetaGInRadians 

int 

Calc Year; 

int 

*CalcYearPtr  =  &CalcYear; 

int 

CalcMonth; 

int 

*CalcMonthPtr  =  &CalcMonth; 

int 

CalcDay; 

int 

*CalcDayPtr  =  ficCalcDay; 
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int  CalcHour; 

int  *CalcHourPtr  =  &CalcHour; 

int  CalcMinute; 

int  *CalcMinutePtr  =  &CalcMinute; 

double  CalcSecond; 

double  *CalcSecondPtr  =  ScCalcSecond; 

double  ChangeInX; 

double  ChangelnY; 

double  ChangeInZ; 

double  XVelocity; 

double  YVelocity; 

double  ZVelocity; 

double  Closes tApproachInRadians ; 

double  CurrentLaserAzimuthInDegrees ; 

double  CurrentLaserElevationInDegrees; 

doubl e  St epT irae ; 

double  LastSepAngle; 

double  TimeElapsed; 

double  PlatformSatRENRhoR; 

double  *PlatfomiSatRENRhoRPtr  =  ScPlatformSatRENRhoR;  • 
double  Platforms a tRENRhoE; 

double  *PlatformSatRENRhoEPtr  =  &PlatformSatRENRhoE; 
double  Platf ormSatRENRhoN; 

double  *PlatformSatRENRhoNPtr  =  &PlatfonnSatRENRho^J; 
double  Platf ormSatRENRhoRDot ; 

double  *Platf ormSatRENRhoRDotPtr  =  & Platf ormSatRENRhoRDot; 
double  PlatformSatRENRhoEDot; 

double  *PlatformSatRENRhoEDotPtr  =  &PlatformSatRENRhoEDot ; 
double  PlatformSatRENRhoNDot ; 

double  *PlatformSatRENRhoNDotPtr  =  &PlatformSatRENRhoNDot ; 
double  PlatformSatRENRhoRDotDot ; 

double  *PlatformSatRENRhoRDotDotPtr  =  &PlatformSatRENRhoRDotDot ; 
double  PlatformSatRENRhoEDotDot ; 

double  *PlatformSatRENRhoEDotDotPtr  =  &PlatformSatRENRhoEDotDot ; 
double  PlatformSatRENRhoNDotDot; 

double  *PlatformSatRENRhoNDotDotPtr  =  &Platf ormSatRENRhoNDotDot ; 
double  LaserRENRhoR; 

double  *LaserRENRhoRPtr  =  &LaserRENRhoR; 
double  LaserRENRhoE; 

double  *LaserRENRhoEPtr  =  &LaserRENRhoE; 
double  LaserRENRhoN; 

double  *LaserRENRhoNPtr  =  &LaserRENRhoN; 
doubl e  Las  er RENRhoRDo  t ; 

double  *LaserRENRhoRDotPtr  =  &La ser RENRhoRDo t; 
double  LaserRENRhoEDot ; 

double  *LaserRENRhoEDotPtr  =  ScLaserRENRhoEDot ; 
double  LaserRENRhoNDot ; 

double  *LaserRENRhoNDotPtr  =  ScLaserRENRhoNDot ; 
double  LaserRENRhoRDotDot; 

double  *LaserRENRhoRDotDotPtr  =  &Las er RENRhoRDo t Dot; 
double  LaserRENRhoEDotDot; 

double  *LaserRENRhoEDotDotPtr  =  ScLaserRENRhoEDotDot ; 
double  Las  er RENRhoNDo  t Do  t ; 

double  *LaserRENRhoNDotDotPtr  =  ScLaserRENRhoNDot Dot; 
double  SeparationAngle; 

double  *SeparationAnglePtr  =  Sc  SeparationAngle; 


/*******************************************yf 

/*  FIND  THE  ACTUAL  JULIAN  DATE  START  TIME  */ 

/*  OF  THE  VERTEX  INTERPOLATION.  */ 

/*******************************************/ 

TimeOfForecastedVertex  =  JulianDate  +  TimeToIntersect/SECSPER24HOURS; 
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InterpolationStartTime  =  TimeOfForecastedVertex 

/******************************************★**/ 

/*  DETERMINE  THE  VELOCITY  {ASSUMED  CONSTANT)*/ 

/*  OF  THE  AIRCRAFT.  */ 

/*****★*****★***★****************************★/ 
XVelocity  =  Platform. GetVelocityX () ; 

YVelocity  =  Platform. GetVelocityY () ; 

ZVelocity  =  Platform.  GetVelocityZO; 


SecondsFromVer tex / 
SECSPER24HOURS; 


/ 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


******************************************* 


THE  CURRENT  JULIANDATE  FOR  THE  STEP  */ 

BEING  EVALUATED.  STEPINTERVAL  IS  THE  */ 

AMOUNT  OF  TIME  (IN  JULIAN  DAY  UNITS)  */ 

THAT  TRANSPIRES  BETWEEN  STEPS.  THE  */ 

LASTSEPANGLE  IS  THE  LAST  SEPARATION  */ 

ANGLE  FOUND  IN  THE  PREVIOUS  STEP.  IT  */ 

IS  INITIALY  SET  TO  TWO  PI  SO  THAT  THE  */ 

NEXT  ANGLE  EVALUATED  WILL  BE  LOWER.  */ 

THE  LOOP  CONTINUES  UNTIL  THE  VERTEX  */ 

SWINGS  "UP”.  THAT  IS,  UNTIL  THE  LASER  */ 

AND  SATELLITE  ARE  SEEN  TO  BE  MOVING  */ 

AWAY  FROM  EACH  OTHER.  THIS  WILL  BE  THE*/ 

CASE  WHEN  THE  LAST  SEPARATION  ANGLE  */ 

EVALUATED  IS  LOWER  THAN  THE  CURRENT  */ 

SEPARATION  ANGLE.  */ 

/*★********************★***★*★*****★★******★/ 

Continue  =  1; 

Stepinterval  =  Interpolationincrement  /  SECSPER24HOURS; 
StepTime  =  InterpolationStartTime; 

LastSepAngle  =  TWOPI; 


while  (Continue) 

{  /************************************************ y 

/*  FIRST,  COMPUTE  THE  TIME  THAT  PIAS  ELAPSED  IN  */ 

/*  THE  CURRENT  INTERPOLATION  STEP  */ 

/*******★*****************★*****************★****/ 
TimeElapsed  =  (StepTime  -  JulianDate)  *  SECSPER24HOURS; 

/*******************★****************★***********/ 

/*  FIND  THE  EXACT  CALENDAR  DATE  OF  THIS  */ 

/*  INTERPOLATION  STEP  TO  PASS  TO  "FINDTHETAG"  */ 
/***★******★**********★**************************/ 
Convert JulianToCalender ( *CalcYearPtr , 

*CalcMonthPtr , 

*CalcDayPtr, 

*CalcHourPtr, 

*CalcMinutePtr , 

*CalcSecondPtr , 

StepTime, 

ErrorList) ; 


/*★****★************★*****★*****★*****************★*/ 
/*  FIND  THE  CURRENT  ANGLE  OF  THETA  G  AT  THE  */ 

/*  CURRENT  STEP  TIME  */ 

/TIT**************************************************/ 

ThetaGInRadians  =  0; 

FindThetaG ( Refer enceHour, 

Ref erenceMinute , 

ReferenceSecond, 

RefModJulianDate , 
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**** 


**** 


CalcYear, 
CalcMonth, 
CalcDay, 
CalcHour, 
CalcMinute, 
CalcSecond, 
*ThetaPtr , 
ErrorList) ; 


/********★***********★***************★ 

/*  FIND  CHANGE  IN  PLATFORM  POSITION  (ECEF) 
/*******★**★★★******★****★**************★*★ 


**  ! 
*/ 
******  j 


Change InX 
Change InY 
Change InZ 


TimeElapsed  *  XVelocity  /  3600; 
TimeElapsed  *  YVelocity  /  3600; 
TimeElapsed  *  ZVelocity  /  3600; 


/************************************************/ 

/*  FIND  CHANGE  IN  LAZER  POSITION.  FIRST  THE  */ 

/*  AZIMUTH.  NOTE  THAT  IF  THE  AZIMUTH  CROSSES  */ 

/*  360  DEGREES,  IT  IS  RESET  TO  ZERO.  */ 

/***********************************★************/ 
CurrentLaserAzimuthInDegrees  =  LaserAzimuthInDegrees  + 

TimeElapsed  *  LaserAzimuthDot  + 

(0.50)  *  LaserAzimuthDotDot  * 
pow (TimeElapsed,  2.0); 
if  (CurrentLaserAzimuthInDegrees  >  360.0) 

CurrentLaserAzimuthInDegrees  =  CurrentLaserAzimuthInDegrees  -  360. 


/************************************************ ^ 

/*  NOW  FIND  THE  CHANGE  IN  ELEVATION.  NOTE  THAT*/ 

/*  IF  THE  ELEVATION  SWINGS  PAST  90  DEGREES  (NOT*/ 

/*  LIKELY  IN  OPERATIONAL  WORLD)  THE  ELEVATION  */ 

/*  BEGINS  SWINGING  BACK  TOWARD  0  DEGREES,  AND  */ 

/*  THE  AZIMUTH  SWINGS  AROUND  180  DEGREES.  */ 

/***********************************★************/ 
CurrentLaserElevationInDegrees  =  LaserElevationInDegrees  + 

TimeElapsed  *  LaserElevationDot  + 

(0.50)  *  LaserElevationDotDot  * 
pow (TimeElapsed,  2.0); 
if  (CurrentLaserElevationInDegrees  >  90.0) 

{  CurrentLaserAzimuthInDegrees  =  CurrentLaserAzimuthInDegrees  + 

180.0; 

CurrentLaserElevationInDegrees  =  90.0  - 

( CurrentLaserElevationInDegrees 
90.0) ; 

if  (CurrentLaserAzimuthInDegrees  >  360.0) 

CurrentLaserAzimuthInDegrees  =  CurrentLaserAzimuthInDegrees  - 

360.0; 

} 

/*************** **************************yf*******^*y 


/*  THIS  IS  THE  SAME  MODULE  AS  THE  OTHER  */ 
/*  "FindDisplacementAngles"  MODULE,  EXCEPT  THE  */ 
/*  INPUT  PARAMETERS  HAVE  BEEN  ALTERED  TO  ALLOW  A  */ 
/*  SLIGHT  PLATFORM  POSITION  CHANGE  FOR  THE  */ 
/*  INTERPOLATION  STEPS.  THESE  PARAMETERS  HAVE  */ 
/*  BEEN  CARRIED  OVER  TO  A  SLIGHTLY  MODIFIED  */ 
/*  VERSION  OF  "TargetPlatform"  CALLED  */ 


/*  "TargetPlatformAgain" .  THIS  WAS  DONE  TO  AVOID  */ 
/*  ROTATING  THE  CHANGE  IN  ECEF  POSITION  TO  A  NEW  */ 
/*  LAT  AND  LON,  WHICH  WOULD  TAKE  MORE  COMPUTATION  */ 
/*  THAN  NECESSARY,  AND  WOULD  DO  LITTLE  TO  CLARIFY  */ 
/*  THE  PROBLEM.  */ 
/*************************************************** ^ 
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Dummy  =  0.0; 

FindDisplacementAnglesAgain (Platform, 

Sat, 

ThetaGInRadians , 

JulianDate, 

Change InX, 

ChangelnY, 

ChangeInZ , 

CurrentLaserAzimuthInDegrees , 

Las  er Az imu thDo  t , 

LaserAzimuthDotDot , 

CurrentLaserElevationInDegrees , 

LaserElevationDot , 

LaserElevationDotDot , 

*PlatformSatRENRhoRPtr, 

*PlatformSatRENRhoEPtr, 

*PlatformSatRENRhoNPtr, 

*PlatformSatRENRhoRDotPtr, 

*PlatformSatRENRhoEDotPtr, 

*PlatformSatRENRhoNDotPtr, 

*  Plat  f ormSatRENRhoRDotDo tP tr , 

*  Plat  f  ormSatRENRhoEDo tDo tP tr , 
*PlatformSatRENRhoNDotDotPtr, 
*LaserRENRhoRPtr , 

*LaserRENRhoEPtr , 

*LaserRENRhoNPtr , 
*LaserRENRhoRDotPtr , 
*LaserRENRhoEDotPtr , 
*LaserRENRhoNDo tPtr , 
*LaserRENRhoRDotDotPtr, 
*LaserRENRhoEDotDotPtr, 
*LaserRENRhoNDo tDotPtr , 

*DummyPtr , 

*DummyPtr, 

*SeparationAnglePtr , 

^DummyPtr, 

*DummyPtr, 

ErrorList) ; 

/****★******************************★*******★***★★**/ 

/*  IF  THE  SATELLITE  AND  THE  LASER  ARE  GETTING  */ 

/*  CLOSER,  THEN  CONTINUE  THE  LOOP.  IF  THEY  BEGIN  */ 

/*  TO  DIVERGE,  THEN  STOP  THE  LOOP  AND  RECORD  THE  */ 

/*  PREVIOUS  SEPARATION  ANGLE  AS  THE  CLOSEST  */ 

/*  APPROACH  ANGLE.  */ 

/*************★*******************★*****************/ 
if  (SeparationAngle  <  LastSepAngle) 

{  Continue  =  1; 

StepTime  =  StepTime  +  Stepinterval ; 

LastSepAngle  =  SeparationAngle; 

.} 

else 

{  Closes tApproachInRadians  =  LastSepAngle; 

TimeToIntersect  =  TimeElapsed  -  Stepinterval; 

Continue  =  0 ; 

} 

}  /*****  end  WHILE  LOOP  ****/ 

Closes tApproachInDegrees  =  Closes tApproachInRadians  *  RADTODEGREES 
return; 

} 
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FUNCTION  NAME: 
AUTHOR: 

DATE  CREATED: 

PURPOSE : 


TargetPlatformAgain  */ 
Captain  David  Vloedman  */ 
January  24,  1998  */ 

*/ 

This  function  will  take  the  position  of  the  aircraft  and*/ 
position, velocity  and  acceleration  in  the  REN  frame  of  */ 
the  Airborn  laser  platform.  This  is  very  similar  to  */ 
"TargetPlatform” ,  but  uses  slightly  different  input  */ 
parameters.  */ 
NOTICE  THAT  THIS  IS  NOT  "TargetPlatform”,  BUT  */ 
"TargetPlatformAgain".  IT  IS  ONLY  SLIGHTLY  */ 
DIFFERENT  THAN  THE  OTHER,  INCORPORATING  THE  THREE  INPUT  */ 
PARAMETERS  ChangeInX,  ChangelnY  AND  ChangeInZ  WHICH  */ 
DESCRIBES  A  SLIGHT  POSITION  CHANGE  IN  THE  ECEF  FRAME.  */ 


ABLPlatform 


JulianDate 


ChangeInX 


ChangelnY 


ChangeInZ 


OUTPUTS : 


NAME: 

PlatformECIRhoX 

PlatformECIRhoY 

PlatformECIRhoZ 

PlatformECIRhoXDot 

PlatformECIRhoYDot 

PlatformECIRhoZDot 

PlatformECIRhoXDot Dot 

PlatformECIRhoYDotDot 


DEFINITION:  */ 
for  the  Satellite  being  studied  */ 
Holds  all  information  about  ABL  */ 
Platform  position/disposition  */ 
The  time  to  which  the  position  */ 
of  sat  should  be  propagated  to  */ 
This  parameter  simply  describes  */ 
change  in  the  ECEF  X  position  */ 
vector  which  has  occurred  after  */ 
some  given  time.  This  parameter*/ 
along  with  the  Y  an  Z  are  the  */ 
only  difference  this  routine  has*/ 
with  the  other  "TargetPlatform"  */ 
module.  */ 
This  parameter  simply  describes  */ 
change  in  the  ECEF  Y  position  */ 
vector  which  has  occurred  after  */ 
some  given  time.  This  parameter*/ 
along  with  the  X  an  Z  are  the  */ 
only  difference  this  routine  has*/ 
with  the  other  "TargetPlatform"  */ 
module.  */ 
This  parameter  simply  describes  */ 
change  in  the  ECEF  Z  position  */ 
vector  which  has  occurred  after  */ 
some  given  time.  This  parameter*/ 
along  with  the  X  an  Y  are  the  */ 
only  difference  this  routine  has*/ 
with  the  other  "TargetPlatform"  */ 
module.  */ 
DESCRIPTION:  */ 
X  magnitude  in  ECI  frame  at  Jul  */ 
date  of  X  pos  vector  */ 

Y  magnitude  in  ECI  frame  at  Jul  */ 
date  of  Y  pos  vector  */ 
Z  magnitude  in  ECI  frame  at  Jul  */ 
date  of  Z  pos  vector  */ 
X  magnitude  in  ECI  frame  at  Jul  */ 
date  of  X  vel  vector  */ 

Y  magnitude  in  ECI  frame  at  Jul  */ 
date  of  Y  vel  vector  */ 
Z  magnitude  in  ECI  frame  at  Jul  */ 
date  of  Z  vel  vector  */ 
X  magnitude  in  ECI  frame  at  Jul  */ 
date  of  X  acc  vector  */ 

Y  magnitude  in  ECI  'frame  at  Jul  */ 
date  of  Y  acc  vector  */ 
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/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


Platf ormECIRhoZDotDot 
PlatformRENRhoR 

PlatformRENRhoE 

PlatformRENRhoN 

P 1 a t  f o rmRENRhoRDo  t 

Platf ormRENRhoEDot 

Plat  f  ormRENRhoNDo  t 

PlatformRENRhoRDotDot 

PlatformRENRhoEDotDot 

P la t f ormRENRhoNDo t Do t 

ECItoRENMatrixXY 

ErrorList 


Z  magnitude  in  ECI  frame  at  Jul  */ 
date  of  Z  acc  vector  */ 
Radial  component  in  Radial,  East*/ 
North  coordinate  frame  of  the  */ 
Rho  vector  descibed  above  in  the*/ 
ECI  frame  */ 
East  component  in, Radial,  East  */ 
North  coordinate  frame  of  the  */ 
Rho  vector  descibed  above  in  the*/ 
ECI  frame  */ 
North  component  in  Radial,  East  */ 
North  coordinate  frame  of  the  */ 
Rho  vector  descibed  above  in  the*/ 
ECI  frame  */ 
Radial  Velocity  in  Radial,  East  */ 
North  coordinate  frame  of  the  */ 
Rho  vector  descibed  above  in  the*/ 
ECI  frame  */ 
East  velocity  in  Radial,  East  */ 
North  coordinate  frame  of  the  */ 
Rho  vector  descibed  above  in  the*/ 
ECI  frame  */ 
North  velocity  in  Radial,  East  */ 
North  coordinate  frame  of  the  */ 
Rho  vector  descibed  above  in  the*/ 
ECI  frame  */ 
Radial  accel .  in  Radial,  East  */ 
North  coordinate  frame  of  the  */ 
Rho  vector  descibed  above  in  the*/ 
ECI  frame  */ 
East  accel.  in  Radial,  East  */ 
North  coordinate  frame  of  the  */ 
Rho  vector  descibed  above  in  the*/ 
ECI  frame  */ 
North  accel.  in  Radial,  East  */ 
North  coordinate  frame  of  the  */ 
Rho  vector  descibed  above  in  the*/ 
ECI  frame  */ 
The  ECI  to  REN  conversion  matrix*/ 
The  Errors  which  have  occurred  */ 

*/ 


/*  COMPILER:  Borland  C++  Builder!  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 
/★★**★***★★************★***★**********************★★**★********************★★/ 
void  TargetPlatformAgain (struct  Aircraft  &Platform, 


double  &ThetaGInRad, 
double  JulianDate, 
double  ChangeInX, 
double  Change InY, 
double  Change InZ, 
double  ScPlatformECIRhoX, 
double  &PlatformECIRhoY, 
double  ScPlatformECIRhoZ, 
double  &PlatformECIRhoXDot, 
double  ScPlatformECIRhoYDot , 
double  &PlatformECIRhoZDot , 
double  &PlatformECIRhoXDotDot, 
double  ScPlatformECIRhoYDotDot, 
double  &Platf ormECIRhoZDotDot, 
double  ScPlatformRENRhoR, 
double  ScPlatformRENRhoE, 
double  &PlatformRENRhoN, 
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double  ScPlatformRENRhoRDot , 
double  ScPlatformRENRhoEDot , 
double  &PlatformRENRhoNDot, 
double  ficPlatfornvRENRhoRDotDot, 
double  ScPlatfonnRENRhoEDotDot, 
double  ScPlatformRENRhoNDotDot ; 
double  &ECItoRENMatrixll, 
double  &:ECItoRENMatrixl2 , 
double  &ECItoRENMatrixl3, 
double  &ECItoRENMatrix21, 
double  &ECItoRENMatrix22, 
double  &ECItoRENMatrix23 , 
double  &ECItoRENMatrix3 1 , 
double  &ECItoRENMatrix32 , 
double  &ECItoRENMatrix33 , 
ErrorStructure  &ErrorList) 

{ 

/**********★********★*********/ 

/*  DECLARE  VARIABLES  */ 

/*★*★******★★★★***★******★*★*★/ 
double  Latitude; 
double  Longitude ; 
double  LatInRadians ; 
double  LonInRadians ; 
double  Raircraf tECF [ 3 ] ; 
double  Vaircraf tECF [ 3 ] ; 
double  Aircraf tRadius; 
double  MagnitudeRaircraf tECI; 
double  UnitRaircraf tECI [3 ] ; 
double  MagnitudeOmegaCrossRac; 
double  OmegaCrossRac [3 ] ; 
double  OmegaCrossVac [3 ] ; 
double  OmegaCr OSS OmegaCrossRac [3 ] ; 
char  buffer [MAXMESSAGELENGTH]  =  " 


/******************★★*******************************/ 

/•*  ERROR  CHECK  EACH  INPUT  PARAMETER  */ 

/***************************************************/ 
if  (Platform.GetAltitude ( )  <  0) 

{  sprintf (buffer, "ABL  Platform  Altitude  is  very  low  ->  %d” , 
Platform.GetAltitude ( ) ) ; 

ErrorList .  AddError  ( ''TargetSatellite” , 
buffer, 

0)  ; 

} 

if  ( (Platform. GetLatitudeHemisphere ( )  !=  0)  && 

( Platform. GetLat itudeHemi sphere ( )  !=  1)) 

{  ErrorList .AddError ( “TargetSatellite” , 

“Latitude  Hemisphere  must  be  north(N)  or  south(S)“, 
1)  ; 

} 

if  ( Platform. GetLatitudeDegree ( )  <  0) 

{  sprintf (buffer, “Platform  Latitude,  %d,  must  be  positive", 

Platform. GetLatitudeDegree ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

} 

if  ( Platform. GetLatitudeDegree ( )  >  90) 

{  sprintf (buffer , "Platform  Latitude,  %d,  must  be  less  than  90  degrees", 
Platform.GetLatitudeDegree ( ) ) ; 
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ErrorList . AddError ( "TargetSatellite” , 
buffer, 

1)  ; 

} 

if  (Platform.GetLatitudeMinute( )  <  0) 

{  sprintf (buffer, "Platform  Latitude  minutes,  %d,  must  be  positive". 
Platform. GetLatitudeMinute { ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  ( Platform. GetLatitudeMinute ( )  >  60) 

{  sprintf (buffer, "Platform  Latitude  minutes,  %d,  must  be  less  than  60", 
Platform. GetLatitudeMinute ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  (Platform. GetLatitudeSecond ( )  <  0) 

{  sprintf (buffer, "Platform  Latitude  seconds,  %d,  must  be  positive". 
Platform. GetLatitudeSecond ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

} 

if  ( Platform. GetLatitudeSecond ( )  >  60) 

{  sprintf (buffer, "Platform  Latitude  seconds,  %d,  must  be  less  than  60", 
Platform. GetLatitudeSecond ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  ( Platform. GetLongitudeDegree ( )  <  0) 

{  sprintf (buffer, "Platform  Longitude  Deg,  %d,  must  be  positive  deg  East", 
Platform. GetLongitudeDegree ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  ( Platform. GetLongitudeDegree ( )  >  360) 

{  sprintf (buffer, "Platform  Longitude  Deg,  %d,  must  be  <  360", 

Platform. GetLongitudeDegree ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  (Platform. GetLongitudeMinute ( )  <  0) 

{  sprintf (buffer, "Platform  Longitude  Min,  %d,  must  be  positive", 
Platform.GetLongitudeMinuteO ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

} 

if  (Platform.GetLongitudeMinuteO  >  60) 

{  sprintf (buffer, "Platform  Longitude  Min,  %d,  must  be  <  60", 
Platform.GetLongitudeMinuteO  )  ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

} 

if  ( Platform. GetLongitudeSecondO  <  0) 

{  sprintf (buffer, "Platform  Longitude  Sec,  %d,  must  be  positive". 

Platform. GetLongitudeSecondO ) ; 
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ErrorList .AddError ( "Target Satellite" , 
buffer, 

1)  ; 

} 

if  ( (Platform. GetVelocityX ( )  ==  0.0)  && 

(Platf orm.GetVelocityY{ )  ==  0.0)  && 

(Platform.GetVelocityZ ( )  ==0.0)) 

{  sprintf (buffer, "Platform  is  not  moving,  velocity  is  zero"); 
ErrorList .AddError ( " Targe tSatellite" , 
buffer, 

0)  ; 

} 


/★*****★**★******★**************★********★*★****★/ 
/*  BEGIN  CALCULATIONS  UNLESS  CRITICAL  ERROR  */ 
/*******************************************★****/ 
if  (ErrorList .CriticalError () ) 
return; 


/★★★lie********************************************/ 

/*  INITIALIZE  OUTPUT  VARIABLES  */ 

/*★*★****★*********★**********★***★★***★****★*★**/ 
Platf ormECIRhoX  =  0.0; 

PlatformECIRhoY  =  0.0; 

Platf ormECIRhoZ  =  0.0; 

Platf ormECIRhoXDot  =  0.0; 

Platf ormECIRhoYDot  =  0.0; 

PlatformECIRhoZDot  =0.0; 

Platf ormECIRhoXDotDot  =  0.0; 

Platf ormECIRhoYDotDot  =0.0; 

Platf ormECIRhoZDotDot  =  0.0; 

PlatformRENRhoR  =  0.0; 

PlatformRENRhoE  =  0.0; 

PlatformRENRhoN  =0.0; 

Platf ormRENRhoRDot  =  0.0; 

PlatformRENRhoEDot  =  0.0; 

PlatformRENRhoNDot  =  0.0; 

Platf ormRENRhoRDot Dot  =0.0; 

PlatformRENRhoEDot Dot  =  0.0; 

Platf ormRENRhoNDotDot  =  0.0; 

/*****************************i<f**i»r***************/ 


/* 

FIND  LAT  AND  LON  IN  RADIANS 

*/ 

/* 

NOTE  THAT  -LAT  =  SOUTHERN  LATITUDE 

*/ 

/* 

LatitudeHemi Sphere  =  "0"  =  NORTH 

LAT 

*/ 

/* 

LatitudeHemi sphere  =  ”1"  =  SOUTH 

LAT 

*/ 

/****************************★*****************★*/ 

Latitude  =  ( Platform. GetLatitudeDegree () )  + 

( Platform. GetLatitudeMinute ( ) /60 . 0)  + 

(Platform. GetLatitudeSecond( ) /3600 . 0) ; 

LatInRadians  =  Latitude  *  DEGTORADIANS ; 
if  (Platform. GetLatitudeHemisphere ( )  ==  1) 

LatInRadians  =  -LatInRadians; 

if  (Latitude  <  -90.0) 

{  ErrorList .AddError ( "EvaluateEphemeris " , 

"Latitude  of  platform  is  more  than  90  deg  south 
1)  ; 

} 

if  (Latitude  >  90.0) 

{  ErrorList .AddError ( "EvaluateEphemeris " , 

"Latitude  of  platform  is  more  than  90  deg  north 
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} 


1)  ; 


Longitude  =  (Platform.GetLongitudeDegree ( ) )  + 

(Platform. GetLongitudeMinute ( ) /60.0)  + 
(Platform. GetLongitudeSecond( ) /3600.0) ; 
LonInRadians  =  Longitude  *  DEGTORADIANS ; 
if  (Longitude  >  360.0) 

(  ErrorList . AddError ( " EvaluateEphemeris " , 

"Longitude  of  platform  is  >  360  deg 

1); 

} 


/************************************************/ 
/*  CONVERT  LATITUDE,  LONGITUDE  AND  ALTITUDE  */ 
/*  POSITION  OF  THE  AIRCRAFT  TO  A  RADIAL  VECTOR*/ 


/*  IN  THE  EARTH-CENTERED  EARTH-FIXED  COORD.  */ 
/*  FRAME  */ 
/*  RaircraftECF[0]  =  X  */ 
/*  RaircraftECF[l]  =  Y  ,  */ 
/*  RaircraftECF[2]  =  Z  */ 
/*  NOTE  THAT  THIS  IS  THE  ONLY  FEW  LINES  THAT  */ 
/*  ARE  DIFFERENT  FROM  THE  OTHER  "Target-  */ 
/*  Platform".  WE  JUST  INCORPORATED  THE  CHANGE*/ 
/*  IN  POSITION. .. "ChangeInX"  AND  ETC.  */ 
/******************★***★****★******★**★***★******/ 


AircraftRadius  =  EARTHRADIUS  +  Platf orm. Get Altitude () ; 

RaircraftECF[0]  =  AircraftRadius  * 

cos (LatInRadians)  * 
cos (LonInRadians)  + 

ChangeInX; 

RaircraftECFtl]  =  AircraftRadius  * 

cos (LatInRadians)  * 
sin (LonInRadians)  + 

Change I nY; 

RaircraftECF [2 ]  =  AircraftRadius  * 

sin (LatInRadians)  + 

Change InZ; 

/*************************★********★*********★***/ 

/*  CONVERT  EARTH-CENTERED  EARTH-FIXED  COORD.  */ 


/*  FRAME  TO  EARTH-CENTERED-INERTIAL  BY  USING  */ 
/*  THETA-G  AS  THE  ROTATION  ANGLE.  '  */ 
/*  RaircraftECI[0]  =  X  */ 
/*  RaircraftEClEl]  =  Y  */ 
/*  RaircraftECI[2]  =  Z  */ 


/****★**********★**★*★*★*******★**★★***★★★★*★★★**/ 

PlatformECIRhoX  =  RaircraftECF [0]  *  cos (ThetaGInRad)  - 
RaircraftECF [1]  *  sin (ThetaGInRad) ; 
PlatformECIRhoY  =  RaircraftECF [ 0]  *  sin (ThetaGInRad)  + 
RaircraftECF [1]  *  cos (ThetaGInRad) ; 
PlatformECIRhoZ  =  RaircraftECF [2] ; 

/★**********************************★**★***★**★*★/ 


/*  CONVERT  EARTH-CENTERED  EARTH-FIXED  COORD.  */ 
/*  FRAME  TO  EARTH-CENTERED-INERTIAL  BY  USING  */ 
/*  THETA-G  AS  THE  ROTATION  ANGLE.  NOTE  THAT  */ 
/*  THIS  CAPTURES  THE  ROTATION  OF  THE  EARTH  */ 
/*  UNDERNEATH  THE  PLANE.  */ 
/*  VaircraftECIEO]  =  Xdot  */ 
/*  VaircraftECI[l]  =  Ydot  */ 
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/*  VaircraftECI [2]  =  Zdot  */ 
/*  THE  UNITS  HERE  IN  THE  EC I  FRAME  ARE:  */ 
/*  KILOMETERS  /  SEC  */ 
/*  SO  WE  CONVERT  INPUTS  TO  KM/ SEC  */ 


/★**★*★*★*★*****★★*★********★******★*************/ 

Vaircraf tECF [0]  =  Platform. GetVelocityX ( )  /  3600; 

Vaircraf tECF [1]  =  Platform. GetVelocityY ( )  /  3600; 

Vaircraf tECF [2]  =  Platform.GetVelocityZ ( )  /  3600; 

PlatformECIRhoXDot  =  Vaircraf tECF [0]  *  cos (ThetaGInRad)  - 

Vaircraf  tECF  [1]  *  sin  (ThetaGInRad)  •“ 
PlatformECIRhoY  *  TWOPI/ (SECSSIDEREALDAY) ; 
PlatformECIRhoYDot  =  Vaircraf tECF [0]  *  sin (ThetaGInRad)  + 

Vaircraf tECF [1]  *  cos (ThetaGInRad)  + 
PlatformECIRhoX  *  TWOPI/(SECSSIDEREALDAY); 
PlatformECIRhoZDot  =  VaircraftECF[2]; 

/*******★********★****★**********************★****/ 

/*  FIND  THE  UNIT  VECTOR  IN  THE  DIRECTION  OF  THE  */ 

/*  PLATFORM  POSITION  VECTOR.  THIS  IS  USED  TO  */ 

/*  FIND  THE  MAGNITUDE  OF  COMPONENTS  OF  OTHER  */ 

/*  VECTORS  IN  THE  DIRECTION  OF  THE  PLATFORM  */ 

/*  POSITION  VECTOR.  */ 

/**★★***★*********★**★******★***★**★*********★****/ 

MagnitudeRaircraf tECI  =  sqrt (pow( PlatformECIRhoX, 2 )  + 

pow( PlatformECIRhoY, 2)  + 
pow(PlatforTnECIRhoZ,  2 )  )  ; 

UnitRaircraftECI [0]  =  PlatformECIRhoX  /  MagnitudeRaircraftECI; 

Uni tRaircraf tECI [1]  =  PlatformECIRhoY  /  MagnitudeRaircraftECI; 
UnitRaircraftECI [2]  =  Platf ormECIRhoZ  /  MagnitudeRaircraftECI; 

/★************★*****★★******★******************★★*★**/ 

/*  find  the  ACCELERATION  OF  THE  AIRCRAFT  IN  THE  */ 

/*  ECI  FRAME  */ 

/*  =  2*Omeqa  X  Velocity  +  Omega  X  (Omega  X  Position)*/ 

/*  ASSUME  PLANE  IS  FLYING  A  NON -ACCELERATING  COURSE  */ 

/*  ON  AUTOPILOT.  (Omega  =  ANGULAR  ROTATION  OF  EARTH*/ 
/****************************************************/ 

OmegaCrossRac[0]  =  - (TWOPI/ (SECSSIDEREALDAY) )  *  PlatformECIRhoY; 
OmegaCrossRac[13  =  (TWOPI/ (SECSSIDEREALDAY) )  *  PlatformECIRhoX; 
OmegaCrossRac [2]  =  0.0; 

OmegaCrossVac[0]  =  -2 . 0* (TWOPI/ (SECSSIDEREALDAY) )  * 

(Vaircraf tECF [0]  *  sin (ThetaGInRad)  + 
VaircraftECF[l]  *  cos (ThetaGInRad) ) ; 
OmegaCrossVac [1]  =  2.0* (TWOPI/ (SECSSIDEREALDAY) )  * 

(VaircraftECF[0]  *  cos (ThetaGInRad)  - 
VaircraftECF[l]  *  sin (ThetaGInRad) ) ; 

OmegaCrossVac [2]  =  0.0; 

OmegaCrossOmegaCrossRac [0]  =  - (TWOPI/ (SECSSIDEREALDAY) )  * 

OmegaCrossRac [1]; 

OmegaCrossOmegaCrossRac [1]  =  (TWOPI/ (SECSSIDEREALDAY) )  * 

OmegaCrossRac [0]; 

OmegaCrossOmegaCrossRac [2]  =  0.0; 

Platf ormECIRhoXDotDot  =  OmegaCrossVac [0]  +  OmegaCrossOmegaCrossRac [0] 
PlatformECIRhoYDotDot  =  OmegaCrossVac [1]  +  OmegaCrossOmegaCrossRac [1] 
Platf ormECIRhoZDotDot  =  0.0; 
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/****★***★****************★*★*•********************/ 
/*  SET  UP  A  CONVERSION  MATRIX  BETWEEN  THE  REN  */ 
/*  ECI  COORDINATE  FRAMES.  */ 

/*  THE  REN  FRAME  IS  THE  RADIAL,  EAST  NORTH  FRAME*/ 
/*  WHERE  ONE  AXIS  IS  RADIAL  UP  FROM  THE  AIRCRAFT*/ 
/*  OUT  OF  THE  CENTER  OF  THE  EARTH,  THE  EAST  */ 

/*  AXIS  FOLLOWS  THE  DIRECTION  OF  EARTHS  ROTATION*/ 
/*  “EAST"  AS  VIEWED  FROM  AIRCRAFT,  AND  THE  NORTH*/ 
/*  AXIS  POINTS  TANGENTIALLY  TO  THE  NORTH,  AS  IT  */ 
/*  WOULD  BE  SEEN  FROM  THE  AIRCRAFT,  */ 

/********★**★**★***********★**★*★★***************★/ 


MagnitudeOmegaCrossRac  =  sqrt (pow(OmegaCrossRac [0] , 2)  + 

pow ( OmegaCros  sRac [ 1 ] , 2 )  + 
pow ( OmegaCros  sRac [ 2 ] , 2 ) ) ; 


ECItoRENMatrixll 
ECItoRENMatrixl2 
ECItoRENMatrixlS 
ECItoRENMatrix21 
ECI toRENMatr ix2  2 
ECI toRENMatr ix2  3 
ECItoRENMatrixSl 

EC 1 1 oRENMa t r i x3  2 

ECI toRENMatr ix3 3 


UnitRaircraf tECI [0]; 

UnitRaircraftECI [1] ; 

UnitRaircraf tECI [2] ; 

OmegaCrossRac [0]  /  MagnitudeOmegaCrossRac; 
OmegaCrossRac [1]  /  MagnitudeOmegaCrossRac; 
0.0; 

-UnitRaircraftECI [2]  * 

(OmegaCrossRac [1]  /  MagnitudeOmegaCrossRac); 
UnitRaircraftECI [2]  * 

(OmegaCrossRac [0]  /  MagnitudeOmegaCrossRac); 
(UnitRaircraftECI [0]  * 

(OmegaCrossRac [1]  /  MagnitudeOmegaCrossRac)) 
(UnitRaircraftECI [1]  * 

(OmegaCrossRac [0]  /  MagnitudeOmegaCrossRac)) 


/★★★*************i«r********************************/ 

/*  POSITION  VECTOR  OF  PLATFORM  IN  THE  REN  */ 

/*  COORDINATE  FRAME  FROM  EARTH  CENTER  */ 

/**★**********★*************★*********************/ 

PlatformRENRhoR  =  ECItoRENMatrixll  *  Platf ormECIRhoX  + 
ECItoRENMatrixl2  *  Platf ormECIRhoY  + 
ECItoRENMatrixl3  *  PlatformECIRhoZ; 
PlatfoxinRENRhoE  =  ECItoRENMatrix21  *  Platf ormECIRhoX  + 

ECI toRENMatr ix2 2  *  Platf ormECIRhoY  + 
ECItoRENMatrix23  *  PlatformECIRhoZ; 
PlatformRENRhoN  =  ECItoRENMatrix31  *  Platf ormECIRhoX  + 
ECItoRENMatrix32  *  Platf ormECIRhoY  + 
ECItoRENMatrix33  *  PlatformECIRhoZ; 

/*******★*********************★******************* ^ 

/*  VELOCITY  VECTOR  OF  PLATFORM  IN  THE  REN  */ 

/*  COORDINATE  FRAME  */ 

/***************************★*****★***************/ 

PlatformRENRhoRDot  =  ECItoRENMatrixll  *  PlatformECIRhoXDot  + 

ECItoRENMatrixl2  *  PlatformECIRhoYDot  + 
EC I toRENMatr ixl 3  *  PlatformECIRhoZDot; 
PlatformRENRhoEDot  =  ECItoRENMatrix21  *  PlatformECIRhoXDot  + 

ECItoRENMatrix22  *  PlatformECIRhoYDot  + 
EC I toRENMatr ix2 3  *  PlatformECIRhoZDot; 
Platf ormRENRhoNDot  =  ECItoRENMatrix31  *  PlatformECIRhoXDot  + 

ECItoRENMatrix32  *  PlatformECIRhoYDot  + 
ECItoRENMatrix33  *  PlatformECIRhoZDot; 

/********★★★*****************************★********/ 

/*  ACCELERATION  VECTOR  OF  PLATFORM  IN  THE  REN  */ 

/*  COORDINATE  FRAME  */ 
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/****★**★**********★*★★★***★******★★*★************/ 

PlatformRENRhoRDotDot  =  ECItoRENMatrixll  *  PlatformECIRhoXDotDot  + 

ECItoRENMatrixl2  *  PlatformECIRhoYDotDot  + 

ECItoRENMatrixlS  *  PlatformECIRhoZDotDot; 

PlatformRENRhoEDotDot  =  ECItoRENMatrix21  *  PlatformECIRhoXDotDot  + 

ECItoRENMatrix22  *  PlatformECIRhoYDotDot  + 

ECItoRENMatrix23  *  PlatformECIRhoZDotDot; 

PlatformRENRhoNDotDot  =  ECItoRENMatrixSl  *  PlatformECIRhoXDotDot  + 

ECItoRENMatrix32  *  PlatformECIRhoYDotDot  + 

ECItoRENMatrix33  *  PlatformECIRhoZDotDot; 


return; 


} 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


FUNCTION  NAME:  FindDisplacementAnglesAgain  */ 

AUTHOR:  Captain  David  Vloedman  */ 

DATE  CREATED:  January  23, 1999  */ 

*/ 

PURPOSE:  This  function  will  take  satellite  and  platform  data  and  */ 

willuse  it  to  find  the  error  angle  and  the  displacement  */ 
angle  between  the  laser  position  vector  in  the  REN  frame*/ 
and  the  satellite  position  vector  in  the  same  frame.  */ 
NOTICE  THAT  THIS  IS  NOT  "FindDisplacementAngles " ,  BUT  */ 
"FindDisplacementAnglesAgain".  IT  IS  ONLY  SLIGHTLY  */ 

DIFFERENT  THAN  THE  OTHER,  INCORPORATING  THE  THREE  INPUT  */ 
PARAMETERS  ChangelnX',  ChangelnY  AND  ChangeInZ  WHICH  */ 

DESCRIBES  A  SLIGHT  POSITION  CHANGE  IN  THE  ECEF  FRAME.  */ 


INPUTS :  NAME : 

Sat 

ABLPlatform 
JulianDate 
Change InX 


ChangelnY 


ChangeInZ 


ThetaGInRadians 


*/ 

DEFINITION:  */ 
Holds  all  ephemeris  information  */ 
for  the  Satellite  being  studied  */ 
Holds  all  information  about  ABL  */ 
Platform  position/disposition  */ 
The  time  to  which  the  position  */ 
of  sat  should  be  propagated  to  */ 
This  parameter  simply  describes  */ 
change  in  the  ECEF  X  position  */ 
vector  which  has  occurred  after  */ 
some  given  time.  This  parameter*/ 
along  with  the  Y  an  Z  are  the  */ 
only  difference  this  routine  has*/ 
with  the  other  "FindDis . .Angles ” */ 
module.  */ 
This  parameter  simply  describes  */ 
change  in  the  ECEF  Y  position  */ 
vector  which  has  occurred  after  */ 
some  given  time.  This  parameter*/ 
along  with  the  X  an  Z  are  the  */ 
only  difference  this  routine  has*/ 
with  the  other  "FindDis . .Angles " */ 
module.  */ 
This  parameter  simply  describes  */ 
change  in  the  ECEF  Z  position  */ 
vector  which  has  occurred  after  */ 
some  given  time.  This  parameter*/ 
along  with  the  X  an  Y  are  the  */ 
only  difference  this  routine  has*/ 
with  the  other  "FindDis . .Angles " */ 
module.  */ 
The  angle  between  the  Greenwich  */ 
Meridian  and  the  Vernal  Equinox  */ 
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/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/ *  OUTPUTS : 
/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


at  JulianDate.  */ 

LazerAzimuthlnDegrees  Lazer  Azimuth  at  Laze  Start  time*/ 

in  Degrees  */ 

LazerAzimuthDot  The  rate  of  change  of  the  Az  */ 

in  Degrees /Sec.  */ 

LazerAzimuthDotDot  The  rate  of  change  of  the  rate  */ 

of  change  of  the  Azimuth  (Accel)*/ 
in  Degrees /Sec'^2  */ 

LazerElevationInDegrees  Lazer  Elevation  at  Laze  Start  */ 

in  Degrees  */ 

LazerElevationDot  The  rate  of  change  of  the  El  */ 

in  Degrees /Sec.  */ 

LazerElevationDot Dot  The  rate  of  change  of  the  rate  */ 

of  change  of  the  Elevat.  (Accel)*/ 
in  Degrees/ Sec ^^2  */ 

NAME:  DESCRIPTION:  */ 


PlatformSatRENRhoE 


PlatformSatRENRhoN 


P 1 a t  f ormS a tRENRhoRDo t 


PlatformSatRENRhoEDot 


P 1 a t  f o rmS a t RENRhoNDo  t 


PlatformSatRENRhoR  The  Radial  Component  of  the  */ 

position  vector  of  the  satellite*/ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

The  East  Component  of  the  */ 

position  vector  of  the  satellite*/ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

The  North  Component  of  the  */ 

position  vector  of  the  satellite*/ 
wrt  the  platform  in  the  REN  */ 
coordinate  frame.  */ 

The  Radial  Component  of  the  */ 

velocity  vector  of  the  satellite*/ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.'  */ 

The  East  Component  of  the  */ 

velocity  vector  of  the  satellite*/ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

The  North  Component  of  the  */ 

velocity  vector  of  the  satellite*/ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

Plat f ormSa tRENRhoRDo tDot  The  Radial  Component  of  the  */ 

accel  vector  of  the  satellite  .  */ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

Plat formSatRENRhoEDo tDot  The  East  Component  of  the  */ 

accel  vector  of  the  satellite  */ 
wrt  the  platform  in  the  REN  */ 
coordinate  frame.  */ 

Plat formSat RENRhoNDo tDot  The  North  Component  of  the  */ 

accel  vector  of  the  satellite  */ 
wrt  the  platform  in  the  REN  */ 

coordinate  frame.  */ 

The  Radial  unit  direction  of  the*/ 
lazer  beam  trajectory  in  the  REN*/ 
frame.  */ 

The  East  unit  direction  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame.  */ 

The  North  unit  direction  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame .  .  * / 

The  Radial  unit  velocity  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 


Las  er RENRhoR 


LaserRENRhoE 


LaserRENRhoN 


LaserRENRhoRDot 
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/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*  COMPILER: 
/* 


LaserRENRhoEDot 

LaserRENRhoNDot 

Las  er RENRhoRDo  t Do  t 

Las  erRENRhoEDo  t Do  t 

Las  erRENRhoNDo  t Do  t 

RangeToSatInKilometers 

ErrorAngleInRadians 
Septra tionAngle 

SeparationAngleDot 

SeparationAngleDotDot 

ErrorList 


frame  in  unit  dir*radians/sec  */ 
The  East  unit  velocity  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dir*radians/sec  */ 
The  North  unit  velocity  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dir*radians/sec  */ 
The  Radial  unit  accel.  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dir*radians/sec''2  */ 
The  East  unit  accel.  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dir*radians/sec^2  */ 
The  North  unit  accel.  of  the  */ 
lazer  beam  trajectory  in  the  REN*/ 
frame  in  unit  dir*radians/sec''2  */ 
Holds  the  range  of  the  aircraft  */ 
to  the  satellite  in  kilometers.  */ 
The  total  error  angle  in  radians*/ 
The  separation  (in  radians)  of  */ 
the  LaserRENRho  and  */ 
PlatformSatRENRho  vectors.  */ 
The  rate  of  change  (in  rad/sec)  */ 
of  the  separation  of  LaserRENRho*/ 
PlatformSatRENRho  vectors. */ 
The  acceleration  (in  rad/sec'^2)  */ 
of  the  separation  of  LaserRENRho*/ 
and  PlatformSatRENRho  vectors.  */ 
The  Errors  which  have  occurred  */ 


*/ 

Borland  C++  BuilderB  Standard  version  */ 

This  compiler  should  be  used  to  compile  and  link.  */ 


/* 


/ 

/ 


void  FindDisplacementAnglesAgain( struct  Aircraft  &Platform, 


struct  Satellite  &Sat, 
double  &ThetaGInRad, 
double  JulianDate, 
double  Change InX, 
double  Change InY, 
double  Change InZ, 
double  LaserAzimuthInDegrees, 
double  LaserAzimuthDot, 
double  LaserAzimuthDotDot, 
double  LaserElevationInDegrees , 
double  LaserElevationDot, 
double  Las erEl eva t i onDo tDo t , 
double  ScPlatformSatRENRhoR, 
double  ScPlatformSatRENRhoE; 
double  &PlatformSatRENRhoN, 
double  &PlatformSatRENRhoRDot, 
double  ScPlatformSatRENRhoEDot, 
double  &PlatformSatRENRhoNDot, 
double  &PlatformSatRENRhoRDotDot, 
double  &PlatformSatRENRhoEDotDot, 
double  &PlatformSatRENRhoNDotDot, 
double  &LaserRENRhoR, 
double  ScLaserRENRhoE, 
double  ScLaserRENRhoN, 
double  ScLaserRENRhoRDot , 
double  ScLaserRENRhoEDot, 
double  &LaserRENRhoNDot , 
double  ScLaserRENRhoRDotDot, 
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double  ScLaserRENRhoEDotDot , 
double  ScLaserRENRhoNDotDot , 
double  ficRangeToSatlnKilometerS; 
double  ScErrorAnglelnRadians, 
double  ScSeparationAngle, 
double  ScSepAngleDot/ 
double  &SepAngleDotDot , 
ErrorStructure  ScErrorList) 


{ 

/************★★**********★*****★/ 

/*  VARIABLE  DECLARATIONS  */ 

/*******************************/ 
double  SatECIRhoX; 

double  *SatECIRhoXPtr  =  ScSatECIRhoX; 
double  SatECIRhoY; 

double  *SatECIRhoYPtr  =  &SatECIRhoY; 
double  SatECIRhoZ; 

double  ‘SatECIRhoZPtr  =  &SatECIRhoZ; 
double  SatECIRhoXDot; 

double  *SatECIRhoXDotPtr  =  SiSatECIRhoXDot; 
double  SatECIRhoYDot; 

double  *SatECIRhoYDotPtr  =  ScSatECIRhoYDot; 
double  SatECIRhoZDot; 

double  *SatECIRhoZDotPtr  =  SSatECIRhoZDot; 
double  SatECIRhoXDotDot; 

double  ‘SatECIRhoXDotDotPtr  =  &SatECIRhoXDotDot; 
double  SatECIRhoYDotDot; 

doxable  *SatECIRhoYDotDotPtr  =  SiSatECIRhoYDotDot  ; 
double  SatECIRhoZDotDot; 

double  *SatECIRhoZDotDotPtr  =  &SatECIRhoZDotDot; 
double  SatRENRhoR; 

double  *SatRENRhoRPtr  =  ScSatRENRhoR; 
double  SatRENRhoE; 

double  *SatRENRhoEPtr  =  SSatRENRhoE; 
double  SatRENRhoN; 

double  *SatRENRhoNPtr  =  &SatRENRhoN; 
double  SatRENRhoRDot; 

double  *SatRENRhoRDotPtr  =  StSatRENRhoRDot; 
double  SatRENRhoEDot; 

double  *SatRENRhoEDotPtr  =  ScSatRENRhoEDot ; 
double  SatRENRhoNDot; 

double  *SatRENRhoNDotPtr  =  &SatRENRhoNDot ; 
double  SatRENRhoRDotDot; 

double  *SatRENRhoRDotDotPtr  =  ScSatRENRhoRDotDot ; 
double  SatRENRhoEDotDot; 

double  *SatRENRhoEDotDotPtr  =  &SatRENRhoEDotDot; 
double  SatRENRhoNDotDot; 

double  *SatRENRhoNDotDotPtr  =  ScSatRENRhoNDotDot; 
double  PlatformECIRhoX; 

double  *PlatfonnECIRhoXPtr  =  SPlatformECIRhoX; 
double  PlatformECIRhoY; 

double  *PlatformECIRhoYPtr  =  &PlatformECIRhoY; 
double  PlatformECIRhoZ; 

double  ‘PlatformECIRhoZPtr  =  ScPlatformECIRhoZ; 
double  PlatformECIRhoXDot; 

double  ‘PlatfonnECIRhoXDotPtr  =  &PlatfonnECIRhoXDot; 
double  PlatformECIRhoYDot; 

double  *PlatformECIRhoYDotPtr  =  iPlatformECIRhoYDot; 
double  PlatformECIRhoZDot; 

doioble  *PlatforinEClRhoZDotPtr  =  &PlatfonnEClRhoZDot; 
double  PlatformECIRhoXDotDot; 

double  *PlatforinECIRhoXDotDotPtr  =  &PlatfonnECIRhoXDotDot; 
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double  PlatformECIRhoYDotDot; 

double  *PlatformECIRhoYDotDotPtr  =  &PlatformECIRhoYDotDot 
double  PlatformECIRhoZDotDot; 

double  *PlatfonnECIRhoZDotDotPtr  =  ScPlatformECIRhoZDotDot 


double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 

double 


P 1 a t f o rmRENRhoR ; 

*PlatfonnRENRhoRPtr  =  &PlatforinRENRhoR; 

P 1 a t  f ormRENRhoE ; 

*PlatforraRENRhoEPtr  =  ScPlatformRENRhoE; 

PI a t f ormRENRhoN ; 

*PlatformRENRhoNPtr  =  &PlatformRENRhoN; 

Plat  f  omiRENRhoRDot ; 

*PlatformRENRhoRDotPtr  =  &PlatfonnRENRhoRDot; 
P 1 a t f ormRENRhoEDo t ; 

*Platfor7nRENRhoEDotPtr  =  &PlatformRENRhoEDot; 
P 1  a  t  f  oritiRENRhoNDo  t  ; 

*PlatformRENRhoNDotPtr  =  &PlatfonnRENRhoNDot ; 


Platf ormRENRhoRDotDot ; 

*PlatformRENRhoRDotDotPtr  =  &Platf ormRENRhoRDotDot 
Platf ormRENRhoEDo tDot ; 

*PlatformRENRhoEDotDotPtr  =  &Platf ormRENRhoEDo tDot 
P 1 a t f o rmRENRhoNDo t Do t ; 

*PlatformRENRhoNDotDotPtr  =  &PlatfonnRENRhoNDotDot 
ECItoRENMatrixll ; 

*ECItoRENMatrixllPtr  =  ScECItoRENMatrixll ; 
ECItoRENMatrixl2 ; 

*ECItoRENMatrixl2Ptr  ^  &ECItoRENMatrixl2 ; 


ECItoRENMatrixlS ; 

*ECItoRENMatrixl3Ptr 
ECItoRENMatrix21 ; 

*ECItoRENMatrix2lPtr 
ECItoRENMatrix22 ; 

*ECItoRENMatrix22Ptr 
ECItoRENMatrix23 ; 

*ECItoRENMatrix23Ptr 
ECItoRENMatrix31 ? 

*ECItoRENMatrix31Ptr 
ECIt0RENMatrix32 ; 

*ECItoRENMatrix32Ptr 
ECItoRENMatrix33 ; 

*ECI toRENMatr ix3  3  Ptr 


&ECItoRENMatrixl3 ; 
&ECItoRENMatrix21; 
&ECItoRENMatrix22 ; 
5cECItoRENMatrix23  ; 
&:ECItoRENMatrix31  ; 
&ECItoRENMatrix32 ; 
&ECItoRENMatrix33 ; 


/*  FIND  THE  PLATFORM  POSITION,  VELOCITY,  AND  */ 
/*  ACCELERATION  IN  BOTH  THE  ECI  AND  REN  */ 
/*  COORDINATE  FRAMES.  AFTER  CONVERSION  TO  THE  */ 
/*  REN  FRAME,  ALSO  RETURN  THE  ECI  TO  REN  CON-  */ 
/*  VERSION  MATRIX  TO  USE  IN  OTHER  ROTATIONS.  */ 


/*  NOTICE  THAT  THIS  IS  NOT  "TargetPlatform" ,  BUT  */ 
/*  "TargetPlatformAgain” .  IT  IS  ONLY  SLIGHTLY  */ 
/*  DIFFERENT  THAN  THE  OTHER,  INCORPORATING  THE  */ 
/*  THREE  INPUT  PARAMETERS  ChangeInX,  ChangelnY  */ 
/*  AND  ChangeInZ  WHICH  DESCRIBES  A  SLIGHT  */ 

/*  POSITION  CHANGE  IN  THE  ECEF  FRAME.  */ 

/****************★**★★*****************★***★********/ 
TargetPlatformAgain ( Platform, 

ThetaGInRad, 

JulianDate, 

ChangeInX, 

ChangelnY, 

ChangeInZ , 

*PlatformECIRhoXPtr, 

*Platf ormECIRhoYPtr , 

*Plat f ormECIRhoZPtr , 
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*PlatformECIRhoXDotPtr, 

*Platf ormECIRhoYDotPtr , 

♦PlatformECIRhoZDotPtr, 

♦PlatformECIRhoXDotDotPtr, 

♦PlatformECIRhoYDotDotPtr, 

♦PlatformECIRhoZDotDotPtr, 

*PlatfonnRENRhoRPtr, 

‘PlatformRENRhoEPtr, 

*PlatformRENRhoNPtr, 

♦PlatformRENRhoRDotPtr, 

*Platf ormRENRhoEDotPtr , 

*Platf ormRENRhoNDotPtr , 

*PlatformRENRhoRDotDotPtr, 

*PlatfonnRENRhoEDotDotPtr, 

*PlatformRENRhoNDotDotPtr, 

*ECItoRENMatrixllPtr,  /**********************/ 

*ECItoRENMatrixl2Ptr,  /*  ECI  TO  REN  MATRIX  */ 

*ECItoRENMatrixl3Ptr,  /*  USED  TO  CONVERT  */ 

*ECItoRENMatrix21Ptr,  /*  FROM  ECI  TO  REN  */ 

*ECItoRENMatrix22Ptr,  /*  COORDINATES.  */ 

*ECItoRENMatrix23Ptr,  /**********************/ 

*ECItoRENMatrix31Ptr, 

*ECItoRENMatrix32Ptr, 

*ECItoRENMatrix33Ptr, 

ErrorList) ; 

/***************************************************/ 

/*  FIND  THE  SATELLITE  POSITION,  VELOCITY  AND  */ 

/*  ACCELERATION  IN  THE  ECI  FRAME,  THEN  USE  THE  */ 

/*  ECI  TO  REN  CON  MATRIX  TO  FIND  THE  REN  VERSION.  */ 
/***************************************************/ 

TargetSatellite ( Sat , 

JulianDate, 

ECItoRENMatrixll , 

ECItoRENMatrixl2 , 

ECItoRENMatrixl3 , 

ECItoRENMatrix21 , 

ECI toRENMatr ix2 2 , 

ECItoRENMatrix23 , 

ECItoRENMatrix31 , 

ECItoRENMatrix32 , 

ECItoRENMatrix33 , 

*SatECIRhoXPtr, 

*SatECIRhoYPtr, 

♦SatECIRhoZPtr, 

♦SatECIRhoXDotPtr , 

♦SatECIRhoYDotPtr , 

♦SatECIRhoZDotPtr, 

♦SatECIRhoXDotDotPtr, 

♦SatECIRhoYDotDotPtr, 

*SatECIRhoZDotDotPtr, 

♦SatRENRhoRPtr, 

♦SatRENRhoEPtr, 

♦SatRENRhoNPtr, 

♦SatRENRhoRDotPtr , 

♦SatRENRhoEDotPtr , 

♦SatRENRhoNDotPtr , 

*SatRENRhoRDotDotPtr, 

‘SatRENRhoEDotDotPtr , 

♦SatRENRhoNDotDotPtr , 

ErrorList) ; 
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/*  FIND  POSITION,  VELOCITY  AND  ACCELERATION  */ 
/*  VALUES  OF  VECTOR  GOING  FROM  PLATFORM  TO  */ 
/*  SATELLITE  IN  PLATFORM -CENTERED  REN  FRAME  */ 
/***★***★*★**★**********★***********★**************/ 


/*******★*********/ 

/*  POSITION  */ 

/*****************/ 

PlatformSatRENRhoR 

PlatformSatRENRhoE 

PlatformSatRENRhoN 


SatRENRhoR 

SatRENRhoE 

SatRENRhoN 


PlatformRENRhoR; 
P 1 a t  f ormRENRhoE ; 
Plat  f ormRENRhoN ; 


/*****************/ 

/*  VELOCITY  */ 

/******★**********/ 

PlatfonnSatRENRhoRDot  =  SatRENRhoRDot 
PlatformSatRENRhoEDot  =  SatRENRhoEDot 
PlatformSatRENRhoNDot  =  SatRENRhoNDot 


PI  a  t  f  omiRENRhoRDo  t  ; 
Plat f ormRENRhoEDot ; 
Platf ormRENRhoNDot ; 


/**********★******/ 

/*  ACCELERATION  */ 
/*****************/ 

PlatformSatRENRhoRDotDot 
Platf ormSatRENRhoEDotDot 
Platf ormSatRENRhoNDotDot 


SatRENRhoRDotDot 
SatRENRhoEDotDot 
Sa  tRENRhoNDo  t Do  t 


Platf ormRENRhoRDotDot ; 
Platf ormRENRhoEDotDot ; 
Platf  orinRENRhoNDotDot  ; 


/*  FIND  THE  VECTOR  IN  THE  REN  FRAME  ASSOCIATED  */ 
/*  THE  CURRENT  AZIMUTH  AND  ELEVATION.  THE  */ 
/*  VECTOR  RETURNED  (LaserRENRho)  IS  THE  UNIT  */ 
/*  DIRECTION  VECTOR  POINTING  IN  THE  SAME  DIR  */ 
/*  AS  THE  AZIMUTH  AND  ELEVATION.  */ 


/*******************★***★*******★*******************/ 
TargetLaser (LaserAzimuthInDegrees , 

LaserElevationInDegrees , 

Las  er Az imu thDo  t , 

LaserElevationDo t , 

LaserAzimuthDotDot , 

LaserElevationDotDot , 

LaserRENRhoR , 

LaserRENRhoE , 

LaserRENRhoN , 

LaserRENRhoRDot , 

LaserRENRhoEDot , 

LaserRENRhoNDot , 

LaserRENRhoRDotDot , 

LaserRENRhoEDotDot , 

LaserRENRhoNDot Dot , 

ErrorList) ; 

/***★*****★************★★*★*******★*★★**************/ 
/*  FIND  THE  ANGLE  THAT  SEPARATES  THE  SATELLITE  */ 

/*  POSITION  VECTOR  AND  THE  LASER  TURRET  UNIT  */ 

/*  DIRECTION  VECTOR.  */ 

/****★**★************★*********★★******************* y 

FindSeparationAngle (LaserRENRhoR, 

LaserRENRhoE, 

LaserRENRhoN, 

Las  erRENRhoRDo  t , 

Las  erRENRhoEDo  t , 
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LaserRENRhoNDot , 
LaserRENRhoRDotDot , 
LaserRENRhoEDotDot , 
LaserRENRhoNDotDot , 
PlatformSatRENRhoR, 

Plat f ormSatRENRhoE , 

P 1 a t f o rmS a tRENRhoN , 

Platf ormSatRENRhoRDot , 
Platf ormSatRENRhoEDot , 
Platf ormSatRENRhoNDot, 
Platf ormSatRENRhoRDotDot 
PlatformSatRENRhoEDotDot 
PlatformSatRENRhoNDotDot 
SeparationAngle , 
SepAngleDot , 
SepAngleDotDot , 
ErrorList) ; 


return; 


} 
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D.8  Satellite.cpp 


/*  MODULE  NAME:  Satellite.cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  July  26,  1998  */ 
/*  */ 
/*  PURPOSE:  This  module  of  code  houses  the  Satellite  class  object.  */ 
/  *  *  / 
/*  COMPILER:  Borland  C++  BuilderS  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/****************************************************************************/ 

/***********★****************★****/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/★*★*************★*★*****★******★*/ 

# inc lude  <vc 1 . h> 

ipragma  hdrstop 

#pragma  package ( smart_ini t ) 

/*********************************/ 

/*  USER-BUILT  LIBRARIES  */ 

/****★**************★*★**********★/ 

#include  "Satellite .h" 

# inc lude  " LaserCons  tants . h " 

/******★**********★*★★************/ 

/*  C  GENERAL  LIBRARIES  */ 

/★***********************★********/ 

#include  <stdio.h> 

#include  <iostream.h> 

/**********★****★***************★★*★*★**/ 

/*  CREATE  THE  SATELLITE  CONSTRUCTOR  */ 

/******************★********★***********/ 

Satellite: : Satellite ( )  : 

EccentricAnomaly(O) , 

SemiMajorAxis  (0)  , 

Eccentricity  (0) , 

MeanAnomaly ( 0 )  , 

RightAscension(O) , 

Inclination (0) , 

Ar gumentOf Peri gee (0) , 

TrueAnomaly ( 0 ) , 

ScalarRadius (0) , 

SSCNximber  ( 0 )  , 

Re vAt Epoch ( 0 ) , 

EphemerisType ( 0 ) , 

ElementSetNumber ( 0 ) , 

EpochYear { 0 ) , 

EpochDay(O) , 

RevSquared ( 0 )  , 

RevCubed ( 0 ) , 

BS tar Drag (0)  , 

MeanMotion  (0) 

{ 

} 


/*************************************** ^ 
/*  CREATE  THE  SATELLITE  DESTRUCTOR  */ 

/**********★******■*****************★****/ 
Satellite : : -Satellite ( ) 
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{ 

} 


/*********★★*****★*******★**************★**★*★*********★****★****************/ 

/**********★**★*****  SATELLITE  MANIPULATION  FUNCTIONS  *★*★*★**★★******★**/ 

/****************************************************************************/ 

/**★****************************★★★★****/ 

/*  SET  SEMI -MAJOR  AXIS  */ 

/**★**********★*****★**************★★***/ 

void  Satellite: iSetSemiMajorAxis (long  double  sma) 

{  SeitiiMajorAxis  =  sma;} 

/****★****************************★*****/ 

/*  SET  ECCENTRICITY  */ 

/*****★****************★*******★********/ 

void  Satellite: :SetEccentricity{ long  double  e) 

{  Eccentricity  =  e;} 

/*******************************★*******/ 

/*  SET  INCLINATION  */ 

/***************************************/ 

void  Satellite :: SetInclination (long  double  i) 

{  Inclination  =  i;} 

/*********★**★**************★***********/ 

/*  SET  ARGUMENT  OF  PERIGEE  */ 

/***★★*******★********************★**★**/ 

void  Satellite: :SetArgumentOf Perigee (long  double  ap) 

{  ArgumentOf Perigee  =  ap;} 

/***********★********★*****★*★********★*/ 

/*  SET  MEAN  ANOMALY  */ 

/**★**★*****★*********************★*****/ 

void  Satellite: :SetMeanAnomaly( long  double  ma) 

{  MeanAnomaly  =  ma ;  } 

/★★★★★★★★★★★★★★★★★★★★•AT******************/ 

/*  SET  ECCENTRIC  ANOMALY  */ 

/*★***********************★*************/ 

void  Satellite: :SetEccentricAnomaly( long  double  ea) 

{  EccentricAnomaly  =  ea; } 

/*******************★*********★*****★***/ 

/*  SET  TRUE  ANOMALY  */ 

/***************************************/ 

void  Satellite :: SetTrueAnomaly ( long  double  ta) 

{  TrueAnomaly  =  ta; } 

/*************★********★****★***★★***★*★/ 

/*  SET  SCALAR  RADIUS  */ 

/**************★*****************★*★**★*/ 

void  Satellite: :SetScalarRadius (long  double  sr) 

{  ScalarRadius  =  sr;  } 

/************************************★**/ 

/*  SET  NAME  */ 

/*******★★*★***★*★*★*★**★**★****★*★**★**/ 

void  Satellite: :SetName( char  name [MAXNAMELENGTH] ) 

{  strcpy(Name,  name);  } 

/**********************★★*******★★******/ 
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/*  SET  ELEMENT  SET  NUMBER  */ 

/***************★**★*★★★******★*****★***/ 
void  Satellite :: SetElementSetNumber (int  esetnum) 

{  Element SetNumber  =  esetnum;  } 

/★★★★******************************★****/ 

/*  SET  SSC  NUMBER  */ 

/**★***********************************★/ 
void  Satellite:  :SetSSCNiimber( long  int  ssc) 

{  SSCNumber  =  ssc;  } 

/**********★*****************★*****★**★*/ 

/*  SET  REVOLUTION  NUMBER  AT  EPOCH  */ 
/**★***************★*******★★**★**★★**★*/ 
void  Satellite: :SetRevAtEpoch( long  int  rev) 

{  RevAtEpoch  =  rev;  } 

/********************************★*★**★*/ 

/*  SET  SECURITY  CLASSIFICATION  */ 

/*************************★*★***********/ 

void  Satellite :: SetSecurityClass (char  secclass [CLASSLENGTH+1] ) 
{  strcpy (Security-Class,  secclass)  ;  } 

/*****★**★****★*★******★*********★***********/ 

/*  SET  INTERNATIONAL  IDENTIFICATION  CODE  */ 
/********************************************/ 
void  Satellite: :SetInternationalID (char  intID[INTNUMLENGTH+l] ) 
{  strcpy( International ID,  intID) ;  } 

Z***************************************/ 

/*  SET  EPHEMERIS  TYPE  '  */ 

/***************************************/ 
void  Satellite: :SetEphemerisType (int  etype) 

{  EphemerisType  =  etype;  } 

/***********************★***************/ 

/*  SET  EPOCH  YEAR  */ 

/**********★******★*★★*★*★**************/ 
void  Satellite: :SetEpochYear (int  eyear) 

{  EpochYear  =  eyear;  } 

/******★********************************/ 

/*  SET  EPOCH  DAY  */ 

/***********!Ar*************-Ar******i»r******/ 

void  Satellite: : SetEpochDay ( long  double  eday)  , 

{  EpochDay  =  eday; } 

/*****★*******★*************************/ 

/*  SET  REVOLUTIONS  SQUARED  */ 

/**********************★****★*★*********/ 
void  Satellite :: SetRevSquared( long  double  rev2) 

{  RevSquared  =  rev2;  } 

/******★************************★★******/ 

/*  SET  REVOLUTIONS  SQUARED  */ 

/***********************★******★********/ 
void  Satellite :: SetRevCubed (long  double  rev3) 

{  RevCubed  =  rev3 ;  } 

/***************************************/ 

/*  SET  DRAG  COEFFICIENT  */ 

/★*******************★*****★************/ 
void  Satellite: :SetBStarDrag (long  double  bstar) 
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{  BStarDrag  =  bstar;  } 

/★******★*****★*★★********★★*****★******/ 

/*  SET  MEAN  MOTION  */ 

/***********★************★****★***★*★***/ 
void  Satellite: : SetMeanMotion( long  double  mm) 

{  MeanMotion  =  mm;  } 

/★*****-******************■*•★**★******★***/ 

/*  SET  RIGHT  ASCENSION  */ 

/*★★***★***★**★***★*********************/ 

void  Satellite: :SetRightAscension( long  double  ra) 

{  RightAscension  =  ra;} 

/**************************★★*********★*/ 

/*  SET  TLE  BUFFER  LINE  1  */ 

/*★***★**★★**★★**★**★★*★★***★****★******/ 

void  Satellite: :SetTLELinel (char  line [MAX INPUTLINELENGTH ] ) 
{  strcpy (TLELinel ,  line);  } 

/******★******★**********★*★*******★***★/ 

/*  SET  TLE  BUFFER  LINE  2  */ 

/*****★***★★**********★**************★*★/ 

void  Satellite: :SetTLELine2 (char  line [MAXINPUTLINELENGTH] ) 
{  strcpy (TLELine2 ,  line);  } 


/*****★********★*******★**★****★*******★/ 

/*  GET  ECCENTRICITY  */ 

/**★**************★★**★************★★**★/ 
long  double  Satellite : :GetEccentricity ( ) 

{  return  Eccentricity;  } 

/*************★**★************★★********/ 

/*  GET  RIGHT  ASCENSION  */ 

/***********★**★*****★*****★************/ 
long  double  Satellite : :GetRightAscension ( ) 

{  return  RightAscension;  } 

/***********★★**************************/ 

/*  GET  INCLINATION  */ 

/***★*****★**********************★******/ 
long  double  Satellite: :GetInclination ( ) 

{  return  Inclination;  } 

/★*************************************i»f/ 

/*  GET  ARGUMENT  OF  PERIGEE  */ 

/***********ilr*************************i«r*/ 

long  double  Satellite : :GetArgumentOf Perigee ( ) 
{  return  ArgumentOf Perigee;  } 

/*******★*******★******************★****/ 

/*  GET  MEAN  ANOMALY  */ 

/**★********************★**********★****/ 
long  double  Satellite: :GetMeanAnomaly ( ) 

{  return  MeanAnomaly;  } 

/★*★★***********************************/ 

/*  GET  ECCENTRIC  ANOMALY  */ 

/******★**★*********★*★*****************/ 
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long  double  Satellite: :GetEccentricAnomaly() 

{  return  EccentricAnomaly;  } 

/*****★****★***★**★**********★***★*★★★**/ 

/*  GET  TRUE  ANOMALY  */ 

/*************★***★**★******************/ 
long  double  Satellite GetTrueAnomaly ( ) 

{  return  TrueAnomaly;  } 

/****************************★*■*■********/ 

/*  GET  SCALAR  RADIUS  */ 

/***★**★**★****************★**★*★*★*****/ 
long  double  Satellite: iGetScalarRadius ( ) 

{  return  ScalarRadius;  } 

/**★**************★********★**★*****★***/ 

/*  GET  NAME  */ 

/**********★*******★*★***********★***★**/ 
char*  Satellite:  :GetNaine  ( ) 

{  return  Name;  } 

/********★**★*********★****★★★**********/ 

/*  GET  REVOLUTION  NUMBER  AT  EPOCH  */ 

/*★***★**★**★********★★*★***************/ 
long  int  Satellite : :GetRevAtEpoch ( ) 

{  return  RevAtEpoch;  } 

/*★**★*★*********************★********★*/ 

/*  GET  SSC  NUMBER  */ 

/*★★*********★**★********★**************/ 
long  int  Satellite: :GetSSCNumber()' 

{  return  SSCNumber;  } 

/******★*******************★**★*******★*/ 

/*  GET  SECURITY  CLASSIFICATION  */ 

/******★**★*****★********★**************/ 
char*  Satellite: :GetSecurityClass ( ) 

{  return  SecurityClass;  } 

/*********★*******★★***★*★*★***★*************/ 
/*  GET  INTERNATIONAL  IDENTIFICATION  CODE  */ 
/******************★******★******************/ 
char*  Satellite: :GetInternationalID ( ) 

{  return  Internet ionallD;  } 

/******★***★**★★*★***■★*★*★***★******★**★/ 

/*  GET  EPHEMERIS  TYPE  */ 

/***************************************/ 
int  Satellite: :GetEphemerisType ( ) 

{  return  EphemerisType;  } 

/***★**★★****★★***★★********★★**★**★**★*/ 

/*  GET  ELEMENT  SET  NUMBER  */ 

/**★★****★*******★***********★**★*★***★*/ 
int  Satellite:  :GetElementSetN\amber  ( ) 

{  return  ElementSetNumber;  } 

/*******************★******★************/ 

/*  GET  EPOCH  YEAR  */ 

/**★★*★**★**★*★*★★*★★***★***★***********/ 
int  Satellite: : Ge tEpochYear ( ) 

{  return  EpochYear;  } 
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/*★***★**★********★********★★★**★★★*★*★*/ 
/*  GET  EPOCH  DAY  */ 

/*********★**★★********★****★***********/ 
long  double  Satellite: iGetEpochDay ( ) 

{  return  EpochDay;  } 

/★★★*★★★*★*★★************★*★*★*★★★★★★★★★/ 
/*  GET  REVOLUTIONS  SQUARED  */ 

/**★★*★*******★★★*******★****★***★*****★/ 
long  double  Satellite : :GetRevSquared ( ) 

{  return  RevSquared;  } 

/**************★★*★★★★*★*****★**★***★***/ 
/*  GET  REVOLUTIONS  CUBED  */ 

/**************★*****★********★****★****/ 
long  double  Satellite: :GetRevCubed( ) 

{  return  RevCubed;  } 

/*******★**★*★*******★********★*********/ 
/*  GET  DRAG  COEFFICIENT  */ 

/**★★*★*********************************/ 
long  double  Satellite :: GetBStarDrag ( ) 

{  return  BStarDrag;  } 

/***************************************/ 
/*  GET  MEAN  MOTION  */ 

/★**************************************/ 
long  double  Satellite : :GetMeanMotion ( ) 

{  return  MeanMotion;  } 

/*****★★****★**★★*★****★*★*****★***★★**★/ 
/*  GET  TLE  BUFFER  LINE  1  */ 

/***************************************/ 
char*  Satellite : : GetTLELinel ( ) 

{  return  TLELinel;  } 

/*****★*********************************/ 
/*  GET  TLE  BUFFER  LINE  2  */ 

/******★**************★*★**********★****/ 
char*  Satellite: :GetTLELine2 ( ) 

{  return  TLELine2 ;  } 


298 


D.9  SGP4SupportModules.cpp 


/*  MODULE  NAME:  SGP4SupportModules . cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  October  20,  1998  */ 
/*  */ 
/*  PURPOSE:  This  set  of  modules  supports  incorporating  ”SGP4'',  a  */ 
/*  Satellite  position/ time  propagator  developed  by  */ 
/*  United  States  Space  Command.  These  modules  were  */ 
/*  developed  for  SGP4  Version  3.01C.  They  simply  serve  as  */ 
/*  an  interface  between  this  project  and  SGP4.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  BuilderS  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/***********************★****★***★*★★*★**********★****★****★*******★*********/ 

/***********★*******★****★********/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/*★★******************★★**********/ 

# inc lude  < vc 1 . h> 

#pragma  hdrstop 

#pragma  package ( smar t_ini t ) 

/*★*********************★★********/ 

/*  USER-BUILT  LIBRARIES  */ 

/*****★********★******************/ 

#  inc  lude  ''SGP4Routines  .h" 

#include  "TimeModules .h" 

#include  ”LaserConstants .h" 
tinclude  ” Satellite. h" 

# inc lude  "Aircraft .h” 

#include  "ErrorStructure.h" 
iinclude  "SGP4SupportModules .h" 

/*********************************/ 

/*  C  STANDARD  LIBRARIES  */ 

/************★★*******★**********★/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 
tinclude  <iostream.h> 
tinclude  <conio.h> 

# inc lude  <math.h> 

/*******★****★*★*************************************************************/ 
/***********************  FUCTIONS  *****************************/ 

/***★*******★********★***★********★***************★*********************★★***/ 


FUNCTION  NAME: 
AUTHOR: 

DATE  CREATED: 


CallSGP4 

Captain  David  Vloedman 
October  20,  1998 


PURPOSE ; 


This  procedure  will  take  elements  already  existing 
within  the  Predictive  Avoidance  Project  code  and  adapt 
that  information  slightly  to  be  used  by  SGP4  version 
3.01.  It  will  then  make  a  call  to  SGP4  and  return  the 
results . 


INPUTS : 


NAME: 

Sat 

JulianDate 


DEFINITION: 

Holds  all  ephemeris  information 
for  the  Satellite  being  studied 
The  time  to  which  the  position 
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/* 


/* 

OUTPUTS : 

NAME: 

/* 

X 

/* 

/* 

Y 

/* 

/* 

Z 

/* 

/* 

Xdot 

/* 

Ydot 

/* 

Zdot 

/* 

Inclination 

/* 

RightAscension 

/* 

Eccentricity 

/* 

ArgumentOf Perigee 

/* 

Mean  Anomaly 

/* 

Delta 

/* 

/* 

/* 

■ 

/* 

ErrorList 

/* 

/* 

/* 

COMPILER: 

Borland  C++  Builders 

/* 

This  compiler  should 

/* 

/***************************************1 
CallSGP4 (struct  Satellite  &Sat, 

double 

JulianDate, 

double 

&X, 

double 

&Y, 

double 

&Z, 

double 

ficXdot , 

double 

&Ydot, 

double 

fieZdot, 

double 

Sclnclination, 

double 

&:Ri  ght  As  cens  i  on , 

double 

&Eccentricity, 

double 

ScMeanMotion, 

double 

ficArgumentOf  Per  igee , 

double 

ScMeanAnomaly , 

double 

&Delta, 

Errors true  ture  &ErrorLi s  t ) 

of  sat  should  be  propagated  to  */ 
DESCRIPTION:  */ 
X  axis  pos  in  ECI  frame  at  Jul  */ 
date  * / 
Y  axis  pos  in  ECI  frame  at  Jul  */ 
date  */ 
Z  axis  pos  in  ECI  frame  at  Jul  */ 
date  */ 
Velocity  vector  in  X  direction  */ 
Velocity  vector  in  Y  direction  */ 
Velocity  vector  in  Z  direction  */ 
Inclination  at  Julian  Date  */ 
Right  Ascension  at  Julian  Date  */ 
Eccentricity  at  Julian  Date  */ 
Arg  of  Perigee  at  Julian  Date  */ 
The  Mean  Anomanly  at  Julian  Date*/ 
The  amount  of  time  in  seconds  */ 
that  has  transpired  between  the  */ 
actual  ephemeris  measurements  .*/ 


and  the  Julian  Date  propagated  */ 
The  Errors  which  have  occurred  */ 

*/ 

*/ 

Standard  version  */ 

be  used  to  compile  and  link.  */ 

*/ 

*★**★★★*★***************★★**********/ 


{ 

/******★***************★****************************** ^ 
/*  THE  DATA  STRUCTURES  els21  AND  sgp4ret  ARE  THE  */ 
/*  STRUCTURES  USED  TO  SEND  AND  RECEIVE  INFORMATION  */ 
/*  TO  SGP4.  THESE  ARE  DEFINED  IN  THE  SGP4Routines . h*/ 
/*  FILE.  */ 

/**********★************★*★*********★***********★*****/ 
els21  ‘  SGP4ElSet; 
sgp4ret  ReturnElements ; 
double  Jul ianS tart; 
int  ErrorCode ; 


/********************************************************** ^ 
/*  HERE,  WE  ARE  TRANSFERING  ALL  OF  THE  EPHEMERIS  DATA  */ 
/*  FROM  THE  DATA  STRUCTURE  USED  IN  THIS  SOFTWARE  (Sat  OF  */ 
/*  TYPE  Satellite)  TO  THE  DATA  STRUCTURE  TYPE  CREATED  BY  */ 
/*  THE  PROGRAMERS  OF  SGP4  (els21) .  THIS  DATA  STRUCTURE  */ 
/*  IS  SPECIFIC  TO  SGP4,  AND  SO  WAS  NOT  USED  THROUGHOUT  */ 
/*  THIS  PROJECT<  IN  THE  EVENT  THAT  WE  WISH  TO  CHANGE  TO  */ 
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/*  A  DIFFERENT  PROPAGATOR  */ 

/****★★**********************★***************★*************/ 

SGP4ElSet.sn  =  Sat  .GetSSCNiimber  ( )  ; 

strcpy (SGP4ElSet . clas ; Sat .GetSecurityClass ()); 
strcpy(SGP4ElSet.intdes,Sat.GetInternationalID() ) ; 

SGP4ElSet .eyear  =  Sat .GetEpochYear ( ) ; 

SGP4ElSet . eday  =  double ( Sat . GetEpochDay { ) ) ; 

SGP4ElSet .ndot  =  double (Sat .GetRevSquared ()) ; 

SGP4ElSet . nddot  =  double ( Sat . GetRevCubed ( ) ) ; 

SGP4ElSet .bstar  =  double { Sat. GetBS tarDrag( )) ; 

SGP4ElSet . ephtype  =  Sat . GetEphemer isType ( ) ; 

SGP4ElSet . elnum  =  Sat . GetElementSetNumber ( ) ; 

SGP4ElSet . inc  =  double (Sat .Getinclination ()) ; 

SGP4ElSet.ra  =  double(Sat.GetRightAscension() ) ; 

SGP4ElSet . ecc  =  double ( Sat . GetEccentricity ( ) ) ; 

SGP4ElSet . per  =  double ( Sat . GetArgumentOf Perigee ( ) ) ; 

SGP4ElSet . ma  =  double ( Sat . GetMeanAnomaly ( ) ) ; 

SGP4ElSet . n  =  double ( Sat . GetMeanMotion ( ) ) ; 

SGP4ElSet . eprev  =  Sat .GetRevAtEpoch ( ) ; 

/*****★*****★**★**★★*********★*******★***************★****★/ 

/*  DETERMINE  THE  JULIAN  DATE  EQUIVALENT  OF  THE  START  TIME*/ 

/*  OF  THE  PROPAGATION.  THIS  IS  THE  TIME  RECORDED  IN  THE  */ 

/*  INPUT  FILE  AS  THE  TIME  AT  WHICH  THE  EPHEMERIS  */ 

/*  MEASUREMENTS  WERE  FIRST  TAKEN.  */ 

/************************★**★*******************★**********/ 
ConvertCalenderToJulian ( Sat . GetEpochYear ( ) , 

1, 

1, 

0, 

0, 

0, 

JulianStart, 

ErrorList) ; 

JulianStart  =  JulianStart  +  Sat .GetEpochDay () ; 

/*********************★**★*★****★********★*****************/ 

/*  FIND  THE  AMOUNT  OF  TIME  TO  PROPAGATE  THE  SATELLITE  */ 

/*  ORBIT  BY  SUBSTRACTING  THE  PROPAGATION  JULIAN  DATE  FROM*/ 

/*  THE  START  JULIAN  DATE,  WHEN  THE  MEASUREMENTS  WERE  */ 

/*  FIRST  RECORDED.  DELTA  IS  IN  MINUTES  IN  SGP4 .  */ 

/***************************★**************★★*★★***********/ 

Delta  =  JulianDate  -  JulianStart; 

Delta  =  Delta  *  MINUTESPERDAY; 
if  (Delta  <  0.0) 

{  ErrorList  .AddError  ( ”CallSGP4’' , 

"There  has  been  a  propagation  backwards  in  time", 
0); 

} 

sgp4prop (1, 

&SGP4ElSet, 

Delta, 

ScReturnElements , 
ficErrorCode) ; 

/**********************************************************/ 

/*  IF  THE  ERRORCODE  RETURNED  FROM  SGP4  =  0,  THEN  AN  ERROR*/ 

/*  HAS  OCCURRED.  */ 

/********************★******************************★****★*/ 
if  (ErrorCode  ==  0) 

{  Err or L i s  t . AddError ( " Cal 1 SGP4 " , 

"Error  returned  from  SGP4", 
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1)  ; 

return  0; 

} 

/*********************★**********★*******★★***********★****/ 
/*  EXTRACT  ALL  NECESSARY  INFORMATION  FROM  THE  OUTPUT  */ 

/*  STRUCTURE  ( Re turnE laments )  OF  SGP4.  ALL  OUTPUT  IS  */ 
/*  EXPRESSED  IN  DEGREES,  RATHER  THAN  RADIANS.  */ 

/*******★★********★****★★★******★*****★★********★**********/ 
X  =  ReturnElements .x; 
y  =  ReturnElements .y; 

Z  =  ReturnElements . z; 

Xdot  =  ReturnElements .xdot; 

Ydot  =  ReturnElements .ydot; 

Zdot  =  ReturnElements . zdot; 

Inclination  =  ReturnElements . im  *  RADTODEGREES ; 
RightAscension  =  ReturnElements .Om  *  RADTODEGREES; 
Eccentricity  =  ReturnElements . em; 

MeanMotion  =  ReturnElements . nm; 

ArgumentOf Perigee  =  ReturnElements . om  *  RADTODEGREES; 
MeanAnomaly  =  ReturnElements  .mm  *  RADTODEGREES; 


return  0; 

} 
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D.10  TargetLaser.cpp 


/****************************************************************************/ 

/* 

MODULE  NAME: 

TargetLaser . cpp 

*/ 

/* 

AUTHOR: 

Captain  David  Vloedman 

*/ 

/* 

DATE  CREATED: 

January  11,  1999 

*/ 

/* 

*/ 

/* 

PURPOSE: 

This  set  of  modules  supports  the  processor  and  are 

*/ 

/* 

used  to  evaluate  whether  or  not  the  satellite  is  ever 

*/ 

/* 

above  the  platform  horizon. 

*/ 

/* 

*/ 

/* 

COMPILER: 

Borland  C++  Builder!  Standard  version 

*/ 

/* 

This  compiler  should  be  used  to  compile  and  link. 

*/ 

/* 

*/ 

/****★**★*********★*********★*******★*****★*********★************************/ 

/****★**★**************★*****★****/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/*****************★★********★*****/ 

# inc lude  < vc 1 . h> 

#pragma  hdrstop 

#pragina  package  (smart^init) 

/**************************★***★**/ 

/*  USER-BUILT  LIBRARIES  */ 

/****************★★***************/ 

# inc lude  "LaserConstants .h" 

# inc lude  "Error S tructure .h” 

#include  "TargetLaser .h" 

/************★********************/ 

/*  C  STANDARD  LIBRARIES  */ 

/********************★**★****★***★/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

# inc lude  <math.h> 

/★★**★**★*★************★********************★★********★*****★★*****★★**★*****/ 
/***********************  FUCTIONS  *****************************/ 

/****************************************************************************/ 


/****************************************************** ********★**★*****★***★/ 

/* 

FUNCTION  NAME: 

TargetLaser 

*/ 

/* 

AUTHOR: 

Captain  David  Vloedman 

*/ 

/* 

DATE  CREATED: 

January  3,  1999 

*/ 

/* 

*/ 

/* 

PURPOSE: 

This  routine  finds  the 

unit  direction  vector  of  the 

*/ 

/* 

laser  turret  given  its 

reported  azimuth  and  elevation. 

*/ 

/* 

*/ 

/* 

INPUTS : 

NAME: 

DEFINITION: 

*/ 

/* 

Azimuth 

This  is  the  Azimuth  (reported  in 

L*/ 

/* 

degrees  east  of  north)  of  the 

*/ 

/* 

laser  turret. 

*/ 

/* 

Elevation 

This  is  the  Elevation  (reported 

*/ 

/* 

in  degrees  above  horizon)  of  the 

:*/ 

/* 

laser  turret. 

*/ 

/* 

AzimuthDot 

This  is  the  Azimuth  rate  of 

*/ 

/* 

change  of  the  laser  turret. 

*/ 

/* 

AzimuthDot 

This  is  the  Elevation  rate  of 

*/ 

/* 

change  of  the  laser  turret. 

*/ 

/* 

AzimuthDotDot 

This  is  the  Azimuth  acceleration 

.*/ 

/* 

of  the  laser  turret. 

*/ 
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/* 

AzimuthDotDot 

This  is  the  Elevation  accel. 

*/ 

/* 

of  the  laser  turret. 

*/ 

/* 

*/ 

/* 

OUTPUTS : 

NAME: 

DESCRIPTION: 

*/ 

/* 

LaserRENRhoR 

The  unit  Radial  component  of  the*/ 

/* 

position  vector  given  in  the 

*/ 

/* 

REN  (Radial,  East,  North)  coord 

*/ 

/* 

frame  which  is  centered  on  the 

*/ 

/* 

platform. 

*/ 

/* 

LaserRENRhoE 

The  unit  East  component  of  the*, 

/ 

/* 

position  vector  given  in  the 

*/ 

/* 

REN  (Radial,  East,  North)  coord 

*/ 

/* 

frame  which  is  centered  on  the' 

*/ 

/* 

platform. 

*/ 

/* 

LaserRENRhoN 

The  unit  North  component  of  the' 

/* 

position  vector  given  in  the 

*/ 

/* 

REN  (Radial,  East,  North)  coord 

*/ 

/* 

frame  which  is  centered  on  the 

*/ 

/* 

platform. 

*/ 

/* 

LaserRENRhoRDot 

The  unit  Radial  velocity  of  the 

*/ 

/* 

position  vector  given  in  the 

*/ 

/* 

REN  (Radial,  East,  North)  coord 

*/ 

/* 

frame  which  is  centered  on  the 

*/ 

/* 

platform. 

*/ 

/* 

Las  erRENRhoEDo  t 

The  unit  East  velocity  of  the 

*/ 

/* 

position  vector  given  in  the 

*/ 

/* 

REN  (Radial,  East,  North)  coord 

*/ 

/* 

frame  which  is  centered  on  the 

*/ 

/* 

platform. 

*/ 

/* 

LaserRENRhoNDot 

The  unit  North  velocity  of  the 

*/ 

/* 

position  vector  given  in  the 

*/ 

/* 

REN  (Radial,  East,  North)  coord 

*/ 

/* 

frame  which  is  centered  on  the 

*/ 

/* 

platform. 

*/ 

/* 

LaserRENRhoRDotDot 

The  unit  Radial  accel.  of  the 

*/ 

/* 

position  vector  given  in  the 

*/ 

/* 

REN  (Radial,  East,  North)  coord 

*/ 

/* 

frame  which  is  centered  on  the 

*/ 

/* 

platform. 

*/ 

/* 

Las erRENRhoEDo tDo t 

The  unit  East  accel.  of  the 

*/ 

/* 

position  vector  given  in  the 

*/ 

/* 

REN  (Radial,  East,  North)  coord 

*/ 

/* 

frame  which  is  centered  on  the 

*/ 

/* 

platform. 

*/ 

/* 

Las  erRENRhoNDo  t Do  t 

The  unit  North  accel.  of  the 

*/ 

/* 

position  vector  given  in  the 

/* 

REN  (Radial,  East,  North)  coord 

*/ 

/* 

frame  which  is  centered  on  the 

*/ 

/* 

platform. 

*/ 

/* 

ErrorList 

The  Errors  which  have  occurred 

*/ 

/* 

*/ 

/* 

COMPILER: 

Borland  C++  Builder3 

Standard  version 

/* 

This  compiler  should 

be  used  to  compile  and  link. 

*/ 

/* 

*/ 

/********************★**★★**★*★*★*★***★***,*********★***************★★***★★*★*/ 
void  TargetLaser (double  AzimuthInDegrees , 

double  ElevationInDegrees , 
double  AziinuthDot, 
double  ElevationDot, 
double  AzimuthDotDot , 
double  ElevationDotDot, 
double  ScLaserRENRhoR, 
double  &LaserRENRhoE, 
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double  &LaserRENRhoN, 
double  ScLaserRENRhoRDot , 
double  ScLaserRENRhoEDot , 
double  ScLaserRENRhoNDot, 
double  &LaserRENRhoRDotDot , 
double  &LaserRENRhoEDotDot , 
double  &LaserRENRhoNDotDot , 

Errors true ture  &ErrorList) 

{ 

/**********************************************/ 

/*  DECLARE  VARIABLES  */ 

/*************************♦**********★********★/ 
double  AzimuthInRadians ; 
double  ElevationInRadians; 
char  buffer [MAXMESSAGELENGTH]  =  " 

/*********★★****************★***********★*★******★**/ 

/*  ERROR  CHECK  EACH  PARAMETER  */ 

/****★************★****★*************★**************/ 
if  (AzimuthInDegrees  <  0.0) 

{  sprintf (buffer , "Azimuth  cannot  be  negative.  Azimuth  =  %d”, 

AzimuthInDegrees) ; 

ErrorList .AddError ( "TargetLaser" , 
buffer, 

1)  ; 

} 

if  (AzimuthInDegrees  >360.0) 

{  sprintf (buffer, "Azimuth  should  not  be  >  360.  Azimuth  =  %d" , 
AzimuthInDegrees) ; 

ErrorList .AddError ( "TargetLaser" , 
buffer, 

1)  ; 

} 

if  (ElevationInDegrees  <  -90.0) 

{  sprintf (buffer, "Elevation  cannot  be  less  than  -90  deg.  Elevation  =  %d 
ElevationInDegrees) ; 

ErrorList .AddError ( "TargetLaser" , 
buffer, 

1); 

} 

if  (ElevationInDegrees  >  90.0) 

{  sprintf (buffer, "Elevation  cannot  be  >  90  deg.  Elevation  =  %d", 
ElevationInDegrees) ; 

ErrorList .AddError ( "TargetLaser" , 
buffer, 

1)  ; 

} 


/★*★★*★★*★*★★*****★****★*****************★*******/ 
/*  INITIALIZE  OUTPUT  VARIABLES  */ 

^**********i»r*************************************y 

LaserRENRhoR  =  0.0; 

LaserRENRhoE  =  0.0; 

LaserRENRhoN  =  0.0; 

LaserRENRhoRDot  =  0.0; 

LaserRENRhoEDot  =  0.0; 

LaserRENRhoNDot  =  0.0; 

LaserRENRhoRDot Dot  =  0.0; 

LaserRENRhoEDotDot  =  0.0; 

LaserRENRhoNDotDot  =  0.0; 

/*********★*****★*****★*★*****★*********★****★★*★/ 
/*  BEGIN  CALCULATIONS  UNLESS  CRITICAL  ERROR  */ 
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/★**★****★★★***********★**★*****★**★**★********★*/ 
if  (ErrorList . CriticalError ( ) ) 
return; 

/*******★★★******************************★*★*****/ 

/*  CONVERT  ALL  DEGREE  UNITS  TO  RADIANS  */ 

/**************************★********************★/ 

ElevationInRadians  =  ElevationInDegrees  *  DEGTORADIANS ; 
AzimuthlnRadians  =  AzimuthInDegrees  *  DEGTORADIANS; 
ElevationDot  =  ElevationDot  *  DEGTORADIANS; 

AzimuthDot  =  AzimuthDot  *  DEGTORADIANS; 

ElevationDotDot  =  ElevationDotDot  *  DEGTORADIANS; 
AzimuthDotDot  =  AzimuthDot Dot  *  DEGTORADIANS; 

/****★**********★***★*★***********★**★★*******★**/ 

/*  FIND  LASER  POSITION  VECTOR  IN  REN  FRAME  */ 

/*******************************i«r****************/ 

LaserRENRhoR  =  sin (ElevationInRadians ) ; 

LaserRENRhoE  =  cos (ElevationInRadians )  * 
sin (AzimuthlnRadians) ; 

LaserRENRhoN  =  cos (ElevationInRadians)  * 
cos (AzimuthlnRadians) ; 


/*****************★★*****************************/ 

/*  FIND  LASER  VELOCITY  VECTOR  IN  REN  FRAME  */ 

/*  THIS  IS  JUST  THE  DERIVITIVE  OF  THE  LASER  */ 

/*  POSITION  VECTOR  (ABOVE) .  */ 

/***★***********************★********************/ 

LaserRENRhoRDot  =  cos (ElevationInRadians )  *  ElevationDot; 

LaserRENRhoEDot  =  cos (ElevationInRadians )  * 

cos (AzimuthlnRadians)  *  AzimuthDot  - 

sin (ElevationInRadians)  * 

sin (AzimuthlnRadians)  *  ElevationDot; 

LaserRENRhoNDot=  ^ cos (ElevationInRadians )  * 

sin (AzimuthlnRadians)  *  AzimuthDot  - 

sin (ElevationInRadians)  * 

cos (AzimuthlnRadians )  *  ElevationDot; 

/*******************************i«r********************/ 


/*  FIND  LASER  ACCELERATION  VECTOR  IN  REN  FRAME  */ 
/*  THE  ACCELERATION  IS  JUST  THE  DERIVITIVE  OF  THE  */ 
/*  VELOCITY  VECTOR  DERIVED  ABOVE.  */ 
/*  NOTE  THAT  IN  ALL  THREE  OF  THESE  EQUATIONS:  */ 
/*  AzimuthlnRadians  =  AZIMUTH  IN  RADIANS  */ 
/*  ElevationInRadians  =  ELEVATION  IN  RADIANS  */ 
/*  AzimuthDot  =  DERIVITIVE  OF  AZIMUTH  */ 
/*  ElevationDot  =  DERIVITIVE  OF  ELAVATION  */ 
/*  AzimuthDotDot  =  ACCELERATION  OF  AZIMUTH  */ 
/*  ElevationDotDot  =  ACCELERATION  OF  ELEVATION  */ 


/**************************************************** ^ 

LaserRENRhoRDotDot  =  cos (ElevationInRadians )  *  ElevationDotDot  - 

sin (ElevationInRadians)  *  ElevationDot  *  ElevationDot 

LaserRENRhoEDot Dot  =  cos (ElevationInRadians )  * 

cos (AzimuthlnRadians)  *  AzimuthDotDot  - 

AzimuthDot  * 

(cos (ElevationInRadians)  * 
sin (AzimuthlnRadians )  *  AzimuthDot  + 
sin (ElevationInRadians)  * 
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cos (AzimuthInRadians)  *  ElevationDot) 


sin (ElevationInRadians)  * 

sin (AzimuthInRadians)  *  ElevationDotDot 

ElevationDot  * 

(sin (ElevationInRadians)  * 
cos (AzimuthInRadians)  *  AzimuthDot  + 
cos (ElevationInRadians)  * 
sin (AzimuthInRadians)  *  ElevationDot) ; 

LaserRENRhoNDotDot  =  -cos (ElevationInRadians )  * 

sin (AzimuthInRadians)  *  AzimuthDotDot  - 

AzimuthDot  * 

(cos (ElevationInRadians)  * 
cos (AzimuthInRadians)  *  AzimuthDot  - 
sin (ElevationInRadians)  * 
sin (AzimuthInRadians)  *  ElevationDot)  - 

sin (ElevationInRadians)  * 

cos (AzimuthInRadians)  *  ElevationDotDot 

ElevationDot  * 

(cos (ElevationInRadians)  * 
cos (AzimuthInRadians)  *  ElevationDot  - 
sin (ElevationInRadians)  * 
sin (AzimuthInRadians)  *  AzimuthDot) ; 

return; 


} 
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D.11  TargetPlatform.cpp 


/*  MODULE  NAME:  TargetPlatform.cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  January  13,  1998  */ 
/*  */ 
/*  PURPOSE:  This  set  of  modules  supports  the  processor  and  are  */ 
/*  used  to  establish  the  platform's  position,  velocity,  and*/ 
/*  acceleration  wrt  the  platform  in  the  REN  frame.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  BuilderS  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/**************************★**********★**************************************/ 

/**★*********★********************/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/*************************★*******/ 

# include  <vcl.h> 

#pragma  hdrstop 

#pragma  package ( smar t_ini t ) 

/*******★*************★*********★*/ 

/*  USER-BUILT  LIBRARIES  */ 

/*************★***★**★*******★**★*/ 

#include  "LaserConstants .h" 

# include  "Aircraft.h" 

# include  " Error S true ture.h" 

#include  "TargetPlatform.h" 

/*************************★*******/ 

/*  C  STANDARD  LIBRARIES  *;^ 

/**************★*******★★*****★***/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

#include  <math.h> 

/★**********************★★★***************★***************★***★*★*★★**★****★*/ 
/****★***★**★*★***★*★**★  FUCTIONS  *★**★★***★**★***********★****/ 

/**★**★★****★*****************★**************★★*★******★*********************/ 


FUNCTION  NAME: 
AUTHOR : 

DATE  CREATED: 

PURPOSE: 


TargetPlatform  */ 
Captain  David  Vloedman  */ 
January  13,  1998  */ 

*/ 

This  function  will  take  the  position  of  the  aircraft  and*/ 
position, velocity  and  acceleration  in  the  REN  frame  of  */ 
the  Airborn  laser  platform.  */ 


OUTPUTS : 


ABLPlatform 

JulianDate 

NAME: 

PlatformECIRhoX 


DEFINITION: 

for  the  Satellite  being  studied 
Holds  all  information  about  ABL 
Platform  position/disposition 
The  time  to  which  the  position 
of  sat  should  be  propagated  to 
DESCRIPTION: 

X  magnitude  in  ECI  frame  at  Jul 
date  of  X  pos  vector 
Y  magnitude  in  ECI  frame  at  Jul 
date  of  y  pos  vector 


PlatformECIRhoY 


/* 

PlatformECIRhoZ 

Z  magnitude  in  EC I  frame 

at  Jul  */ 

/* 

date  of  Z  pos  vector 

*/ 

/* 

PlatformECIRhoXDot 

X  magnitude  in  EC I  frame 

at  Jul  */ 

/* 

date  of  X  vel  vector 

*/ 

/* 

Pla t  f  ormEC IRho YDo  t 

Y  magnitude  in  ECI  frame 

at  Jul  */ 

/* 

date  of  Y  vel  vector 

*/ 

/* 

PlatformECIRhoZDot 

Z  magnitude  in  ECI  frame 

at  Jul  */ 

/* 

date  of  Z  vel  vector 

*/ 

/* 

PlatformECIRhoXDotDot 

X  magnitude  in  ECI  frame 

at  Jul  */ 

/* 

date  of  X  acc  vector 

*/ 

/* 

PlatformECIRhoYDotDot 

Y  magnitude  in  ECI  frame 

at  Jul  */ 

/* 

date  of  Y  acc  vector 

*/ 

f* 

PlatformECIRhoZDotDot 

Z  magnitude  in  ECI  frame 

at  Jul  */ 

/* 

date  of  Z  acc  vector 

*/ 

/* 

PlatformRENRhoR 

Radial  component  in  Radial,  East*/ 

/* 

North  coordinate  frame  of 

the  */ 

/* 

Rho  vector  descibed  above 

in  the*/ 

/* 

ECI  frame 

*/ 

/* 

PlatformRENRhoE 

East  component  in  Radial, 

East  */ 

/* 

North  coordinate  frame  of 

the  */ 

/* 

Rho  vector  descibed  above 

in  the*/ 

/* 

ECI  frame 

*/ 

/* 

Plat  f  ormRENRhoN 

North  component  in  Radial 

,  East  */ 

/* 

North  coordinate  frame  of 

the  */ 

/* 

Rho  vector  descibed  above 

in  the*/ 

/* 

ECI  frame 

*/ 

/* 

P 1 a t  f 0 rmRENRhoRDo  t 

Radial  Velocity  in  Radial 

,  East  */ 

/* 

North  coordinate  frame  of 

the  */ 

/* 

Rho  vector  descibed  above 

in  the*/ 

/* 

ECI  frame 

*/ 

/* 

P  la  t  f  oormRENRhoEDo  t 

East  velocity  in  Radial,  : 

East  */ 

/* 

North  coordinate  frame  of 

the  */ 

/* 

Rho  vector  descibed  above 

in  the*/ 

/* 

ECI  frame 

*/ 

/* 

Plat  f  ormRENRhoNDo  t 

North  velocity  in  Radial, 

East  */ 

/* 

North  coordinate  frame  of 

the  */ 

/* 

Rho  vector  descibed  above 

in  the*/ 

/* 

ECI  frame 

*/ 

/* 

PlatformRENRhoRDotDot 

Radial  accel.  in  Radial,  East  */ 

/* 

North  coordinate  frame  of 

the  */ 

/* 

Rho  vector  descibed  above 

in  the*/ 

/* 

ECI  frame 

*/ 

/* 

PlatformRENRhoEDotDot 

East  accel.  in  Radial,  East  */ 

/* 

North  coordinate  frame  of 

the  */ 

/* 

Rho  vector  descibed  above 

in  the*/ 

/* 

ECI  frame 

*/ 

/* 

P 1 a t f ormRENRhoNDo tDo t 

North  accel.  in  Radial,  East  */ 

/* 

North  coordinate  frame  of 

the  */ 

/* 

Rho  vector  descibed  above 

in  the*/ 

/* 

ECI  frame 

*/ 

/* 

ECItoRENMatrixXY 

The  ECI  to  REN  conversion 

matrix*/ 

/* 

ErrorList 

The  Errors  which  have  occurred  */ 

/* 

*/ 

/*  COMPILER: 

Borland  C++  BuilderS  Standard  version 

*/ 

/* 

This  compiler  should  be 

used  to  compile  and  link. 

*/ 

/* 

*/ 

/****************************************************************************/ 
void  TargetPlat  form  (struct  Aircraft  &:Platform, 
double  &ThetaGInRad, 
double  JulianDate, 
double  ScPlatformECIRhoX, 
double  &Platfo2:mECIRhoY, 
double  ScPlatformECIRhoZ, 
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double  &:PlatfonnECIRhoXDot , 
double  &PlatformECIRhoYDot , 
double  ScPlatformECIRhoZDot, 
double  &Platforn\ECIRhoXDotDot, 
double  &PlatfonnECIRhoYDotDot, 
.  double  &PlatfonnECIRhoZDotDot / 
double  ScPlatformRENRhoR, 
double  ficPlatformRENRhoE, 
double  &PlatformRENRhoN, 
double  &PlatfonT\RENRhoRDot  / 
double  ScPlatformRENRhoEDot , 
double  ScPlatformRENRhoNDot, 
double  StPlatformRENRhoRDotDot , 
double  &PlatfonT\RENRhoEDotDot, 
double  &PlatfonnRENRhoNDotDot, 
double  &ECItoRENMatrixll , 
double  &ECItoRENMatrixl2, 
double  &ECItoRENMatrixl3, 
double  &ECItoRENMatrix21, 
double  &ECItoRENMatrix22 , 
double  &ECItoRENMatrix23 , 
double  &ECItoRENMatrix31, 
double  &ECItoRENMatrix32 , 
double  &ECItoRENMatrix33 , 
ErrorStructure  &ErrorList) 

{ 

/*****************************/ 

/*  DECLARE  VARIABLES  */ 

/***********************★*****/ 
double  Latitude; 
double  Longitude; 
double  LatInRadians; 
double  LonInRadians ; 
double  RaircraftECF [3 ] ; 
double  Vaircraf tECF [3 ] ; 
double  Aircraf tRadius ; 
double  MagnitudeRaircraftECI; 
double  UnitRaircraf tECI [3 3 ; 
double  MagnitudeOmegaCrossRac; 
double  OmegaCrossRac [3 ] ; 
double  OmegaCrossVac [ 3 ] ; 
double  OmegaCrossOmegaCrossRac [3 ] ; 
char  buffer [MAXMESSAGELENGTH]  =  " 


/★★**************★**********************************/ 

/*  ERROR  CHECK  EACH  INPUT  PARAMETER  */ 

/***********★******************★********************/ 
if  ( Platform. GetAltitude ( )  <  0) 

C  sprintf (buffer , "ABL  Platform  Altitude  is  very  low  ->  %d” , 

Platform. GetAltitude ( ) ) ; 

ErrorList . AddError ( "TargetSatellite" , 
buffer, 

0)  ; 

} 

if  ( (Platform. GetLatitudeHemisphere ( )  !=  0)  && 

( Platform. GetLatitudeHemisphere ( )  !=  1)) 

{  ErrorList .AddError ( "TargetSatellite" , 

"Latitude  Hemisphere  must  be  north(N)  or  south(S)" 
1); 

} 

if  ( Platform. GetLatitudeDegree ( )  <  0) 
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{  sprintf (buffer, "Platform  Latitude,  %d,  must  be  positive", 
Platform.GetLatitudeDegreeO); 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  (Platform.GetLatitudeDegreeO  >90) 

{  sprintf (buffer, "Platform  Latitude,  %d,  must  be  less  than  90  degrees", 
Platform. GetLatitudeDegree ()); 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  ( Platform. GetLatitudeMinute ( )  <  0) 

{  sprintf (buffer, "Platform  Latitude  minutes,  %d,  must  be  positive", 
Platform. GetLatitudeMinute ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  ( Platform. GetLatitudeMinute ( )  >  60) 

{  sprintf (buffer , "Platform  Latitude  minutes,  %d,  must  be  less  than  60", 
Platform. GetLatitudeMinute ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  ( Platform. GetLatitudeSecond ( )  <  0) 

{  sprintf (buffer, "Platform  Latitude  seconds,  %d,  must  be  positive", 
Platform.GetLatitudeSecondO ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  (Platform.GetLatitudeSecondO  >60) 

{  sprintf (buffer , "Platform  Latitude  seconds,  %d,  must  be  less  than  60", 
Platform.GetLatitudeSecondO ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  ( Platform. GetLongitudeDegree 0  <  0) 

{  sprintf (buffer , "Platform  Longitude  Deg,  %d,  must  be  positive  deg  East", 
Platform. GetLongitudeDegree 0 ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  (Platform. GetLongitudeDegree 0  >360) 

{  sprintf (buffer, "Platform  Longitude  Deg,  %d,  must  be  <  360", 

Platform. GetLongitudeDegree 0 ) ; 

Er r orLi s  t . AddError ( " Targe t Sat el 1 i t e " , 
buffer, 

1); 

} 

if  ( Platform. GetLongitudeMinute 0  <  0) 

{  sprintf (buffer, "Platfomn  Longitude  Min,  %d,  must  be  positive". 

Platform. GetLongitudeMinute ()); 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  ( Platform. GetLongitudeMinute ( )  >60) 
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{  sprintf (buffer, "Platform  Longitude  Min,  %d,  must  be  <  60", 
Platform. GetLongitudeMinute ()); 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

} 

if  ( Platform. GetLongitudeSecond ( )  <  0) 

{  sprintf (buffer, "Platform  Longitude  Sec,  %d,  must  be  positive" 
Platform. GetLongitudeSecond ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

} 

if  (  (Platform. GetVelocityX 0  ==  0.0)  &Se 
(Platform. GetVelocityY 0  ==  0.0)  && 

(Platform. GetVelocityZ ( )  ==0.0)) 

{  sprintf (buffer, "Platform  is  not  moving,  velocity  is  zero"); 
ErrorList .AddError ( "TargetSatellite" , 
buffer, 

0)  ; 

} 


/****:»r******************************T«r************/ 

/*  BEGIN  CALCULATIONS  UNLESS  CRITICAL  ERROR  */ 
/★★****★★***★*******★***********★*★★*****★★******/ 
if  (ErrorList .CriticalError( ) ) 
return; 

/****★*****★****★*******************************★/ 
/*  INITIALIZE  OUTPUT  VARIABLES  */ 

/**★*■**★*★**★*★*****★***★*****★**★*****★**★★**★*★/ 
PlatformECIRhoX  =  0.0; 

PlatformECIRhoY  =  0.0; 

Platf ormECIRhoZ  =  0.0; 

PlatformECIRhoXDot  =  0.0; 

PlatformECIRhoYDot  =  0.0; 

Platf ormECIRhoZDot  =  0.0; 

PlatformECIRhoXDotDot  =  0.0; 
PlatformECIRhoYDotDot  =  0.0; 
PlatformECIRhoZDotDot  =  0.0; 

Platf ormRENRhoR  =  0.0; 

PlatformRENRhoE  =  0.0; 

PlatformRENRhoN  =  0.0; 

PlatformRENRhoRDot  =  0.0; 

PlatformRENRhoEDot  =  0.0; 

Platf ormRENRhoNDot  =  0.0; 

Platf ormRENRhoRDotDot  =  0.0; 

Platf ormRENRhoEDotDot  =  0.0; 

Platf ormRENRhoNDotDot  =0,0; 


FIND  LAT  AND  LON  IN  RADIANS 

*/ 

/* 

NOTE  THAT  -LAT  =  SOUTHERN  LATITUDE 

*/ 

/* 

LatitudeHemi sphere  =  "0"  =  NORTH 

LAT 

*/ 

/* 

LatitudeHemi sphere  =  "1"  =  SOUTH 

LAT 

*/ 

/*****★*★****************************************/ 
Latitude  =  (Platform. GetLatitudeDegree () )  + 

(Platform. GetLatitudeMinute ( ) /60 .0)  + 
(Platform. GetLatitudeSecond( ) /3600 .0) ; 
LatInRadians  =  Latitude  *  DEGTORADIANS ; 
if  (Platf orm.GetLatitudeHemisphere ( )  ==  1) 
LatInRadians  =  -LatInRadians; 
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if  (Latitude  <  -90.0) 

{  ErrorList . AddError ( "EvaluateEphemeris " , 

"Latitude  of  platform  is  more  than  90  deg  south 

1); 

} 

if  (Latitude  >  90.0) 

{  ErrorList .AddError ( "EvaluateEphemeris ” , 

"Latitude  of  platform  is  more  than  90  deg  north 

1)  ; 

} 


Longitude  =  ( Platform. GetLongitudeDegree () )  + 

( Platform. GetLongitudeMinute ( ) /60 . 0)  + 
(Platform.GetLongitudeSecond ( ) /3600 . 0) ; 
LonInRadians  =  Longitude  *  DEGTORADIANS ; 
if  (Longitude  >  360.0) 

{  ErrorList .AddError ( "EvaluateEphemeris " , 

"Longitude  of  platform  is  >  360  deg", 
1)  ; 

} 

/************************★★*********************★/ 


/* 

CONVERT  LATITUDE, 

LONGITUDE 

AND  ALTITUDE 

*/ 

/* 

POSITION  OF  THE  AIRCRAFT  TO 

A  RADIAL  VECTOR*/ 

/* 

IN  THE  EARTH-CENTERED  EARTH- 

-FIXED  COORD. 

*/ 

/* 

FRAME 

*/ 

/* 

Raircraf tECF [0] 

=  X 

*/ 

/* 

Raircraf tECF [1] 

=:  Y 

*/ 

/* 

Raircraf tECF [2] 

=  z 

*/ 

y************************************************/ 

Aircraf tRadius  =  EARTHRADIUS  +  Platf orm.GetAltitude ( ) ; 

Raircraf tECF [0]  =  Aircraf tRadius  * 

cos ( LatInRadians )  * 
cos (LonInRadians) ; 

Raircraf tECF [1]  =  Aircraf tRadius  * 

cos (LatInRadians)  * 
sin (LonInRadians) ; 

Raircraf tECF [2]  =  Aircraf tRadius  * 

sin (LatInRadians ) ; 

/*****★****★*********★*******★★******************/ 


/*  CONVERT  EARTH-CENTERED  EARTH-FIXED  COORD.  */ 
/*  FRAME  TO  EARTH-CENTERED- INERTIAL  BY  USING  */ 
/*  THETA-G  AS  THE  ROTATION  ANGLE.  */ 
/*  RaircraftECI[0]  =  X  */ 
/*  Raircraf tECI[l]  =  Y  */ 
/*  Raircraf tECI [2]  =  Z  */ 


/****★*****★★***********★*★★*************★*★*****/ 

PlatformECIRhoX  =  Raircraf tECF [0]  *  cos (ThetaGInRad)  - 
RaircraftECF[l]  *  sin(ThetaGInRad); 
PlatformECIRhoY  =  Raircraf tECF [0]  *  sin (ThetaGInRad)  + 
Ra ir era f tECF [1]  *  cos (ThetaGInRad) ; 
PlatformECIRhoZ  =  Raircraf tECF [2] ; 

/**************★****************★★*********★*★***/ 


/*  CONVERT  EARTH-CENTERED  EARTH-FIXED  COORD.  */ 
/*  FRAME  TO  EARTH-CENTERED- INERTIAL  BY  USING  */ 
/★  THETA-G  AS  THE  ROTATION  ANGLE.  NOTE  THAT  */ 
/*  THIS  CAPTURES  THE  ROTATION  OF  THE  EARTH  */ 
/*  UNDERNEATH  THE  PLANE.  */ 
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/* 

Vaircraf tECI EO]  = 

Xdot 

*/ 

/* 

VaircraftECI El]  = 

Ydot 

*/ 

/* 

VaircraftECIE2]  = 

Zdot 

*/ 

/* 

THE  UNITS  HERE  IN  THE  ECI  FRAME  ARE: 

*/ 

/* 

KILOMETERS  /  SEC 

*/ 

/* 

SO  WE  CONVERT  INPUTS 

TO  ICM/SEC 

*/ 

/************************************************/ 

VaircraftECF[0]  =  Platform.GetVelocityX( )  /  3600; 
VaircraftECF[l]  =  Platform. GetVelocityY ( )  /  3600; 
VaircraftECF[2]  =  Platform.GetVelocityZ ( )  /  3600; 

PlatformECIRhoXDot  =  VaircraftECF [0]  *  cos (ThetaGInRad)  - 

VaircraftECF[l]  *  sin (ThetaGInRad)  - 
PlatformECIRhoY  *  TWOPI/ (SECSSIDEREALDAY) ; 
PlatformECIRhoYDot  =  VaircraftECF [0]  *  sin (ThetaGInRad)  + 

VaircraftECF [1]  *  cos (ThetaGInRad)  + 
PlatformECIRhoX  *  TWOPI/ (SECSSIDEREALDAY) ; 
PlatformECIRhoZDot  =  VaircraftECF [2]; 


/*************************************************/ 

/*  FIND  THE  UNIT  VECTOR  IN  THE  DIRECTION  OF  THE  */ 

/*  PLATFORM  POSITION  VECTOR.  THIS  IS  USED  TO  */ 

/*  FIND  THE  MAGNITUDE  OF  COMPONENTS  OF  OTHER  */ 

/*  VECTORS  IN  THE  DIRECTION  OF  THE  PLATFORM  */ 

/*  POSITION  VECTOR.  */ 

/*************************************************/ 

MagnitudeRaircraftECI  =  sqrt(pow( PlatformECIRhoX, 2)  + 

pow( PlatformECIRhoY, 2)  + 
pow(PlatformECIRhoZ, 2) ) ; 


UnitRaircraftECI [0]  =  PlatformECIRhoX  /  MagnitudeRaircraftECI; 
UnitRaircraftECI[l]  =  PlatformECIRhoY  /  MagnitudeRaircraftECI; 
UnitRaircraftECI [2]  =  PlatformECIRhoZ  /  MagnitudeRaircraftECI; 


/**********★★*****★★****★*★***★*****★*********★***★**/ 

/*  FIND  THE  ACCELERATION  OF  THE  AIRCRAFT  IN  THE  */ 

/*  ECI  FRAME  */ 

/*  =  2*Oineqa  X  Velocity  +  Omega  X  (Omega  X  Position)*/ 

/*  ASSUME  PLANE  IS  FLYING  A  NON -ACCELERATING  COURSE  */ 

/*  ON  AUTOPILOT.  (Omega  =  ANGULAR  ROTATION  OF  EARTH*/ 
/***************************************★************/ 

OmegaCrossRacEO]  =  - (TWOPI/ (SECSSIDEREALDAY) )  *  PlatformECIRhoY; 
OmegaCrossRacEl]  =  (TWOPI/ (SECSSIDEREALDAY) )  *  PlatformECIRhoX; 
OmegaCrossRac [2 ]  =  0.0; 


OmegaCrossVacEO]  =  -2 . 0* (TWOPI/ (SECSSIDEREALDAY) )  * 

(VaircraftECF [0]  *  sin (ThetaGInRad)  + 
VaircraftECF [1]  *  cos(ThetaGInRad)); 
OmegaCrossVac [1]  =  2.0* (TWOPI/ (SECSSIDEREALDAY) )  * 

(VaircraftECF [0]  *  cos (ThetaGInRad)  - 
VaircraftECF [1]  *  sin (ThetaGInRad) ) ; 

OmegaCrossVac [2]  =  0.0; 


OmegaCrossOmegaCrossRac [0]  =  - (TWOPI/ (SECSSIDEREALDAY) )  * 

OmegaCrossRac [1] ; 

OmegaCrossOmegaCrossRac [1]  =  (TWOPI/ (SECSSIDEREALDAY) )  * 

OmegaCrossRacEO] ; 

OmegaCrossOmegaCrossRac E2 3  =  0.0; 


PlatformECIRhoXDotDot  =  OmegaCrossVac E 0]  +  OmegaCrossOmegaCrossRacEO]; 
PlatformECIRhoYDotDot  =  OmegaCrossVac E 1]  +  OmegaCrossOmegaCrossRac EH ; 
PlatformECIRhoZDotDot  =0.0; 
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/*************************************************/ 
/*  SET  UP  A  CONVERSION  MATRIX  BETWEEN  THE  REN  */ 
/*  ECI  COORDINATE  FRAMES.  */ 

/*  THE  REN  FRAME  IS  THE  RADIAL,  EAST  NORTH  FRAME*/ 
/*  WHERE  ONE  AXIS  IS  RADIAL  UP  FROM  THE  AIRCRAFT*/ 
/*  OUT  OF  THE  CENTER  OF  THE  EARTH,  THE  EAST  */ 

/*  AXIS  FOLLOWS  THE  DIRECTION  OF  EARTHS  ROTATION*/ 
/*  "EAST"  AS  VIEWED  FROM  AIRCRAFT,  AND  THE  NORTH*/ 
/*  AXIS  POINTS  TANGENTIALLY  TO  THE  NORTH,  AS  IT  */ 
/*  WOULD  BE  SEEN  FROM  THE  AIRCRAFT.  */ 

/*************************************************/ 


MagnitudeOmegaCrossRac  =  sqrt(pow(OmegaCrossRac[0] , 2)  + 

pow(OmegaCrossRac [1] , 2)  + 
pow(OmegaCrossRac [2] , 2) ) ; 


ECItoRENMatrixll 
ECItoRENMatrixl2 
ECItoRENMatrixl3 
ECItoRENMatrix2 1 
ECItoRENMatrix22 
ECItoRENMatrix2  3 
ECItoRENMatrix31 

ECItoRENMatrix32 

ECItoRENMatrix33 


UnitRaircraftECI [0] ; 

UnitRaircraftECI [1] ; 

UnitRaircraftECI [2 ] ; 

OmegaCrossRac [0]  /  MagnitudeOmegaCrossRac; 
OmegaCrossRac [1]  /  MagnitudeOmegaCrossRac; 
0.0; 

-UnitRaircraftECI [2]  * 

(OmegaCrossRac [1]  /  MagnitudeOmegaCrossRac); 
UnitRaircraftECI [2]  * 

(OmegaCrossRac [0]  /  MagnitudeOmegaCrossRac); 
(UnitRaircraftECI [0]  * 

(OmegaCrossRac [1]  /  MagnitudeOmegaCrossRac)) 
(UnitRaircraftECI [1]  * 

(OmegaCrossRac [0]  /  MagnitudeOmegaCrossRac)) 


/*************************************************/ 

/*  POSITION  VECTOR  OF  PLATFORM  IN  THE  REN  */ 

/*  COORDINATE  FRAME  FROM  EARTH  CENTER  */ 

/*************************************************/ 

PlatformRENRhoR  =  ECItoRENMatrixll  *  PlatformECIRhoX  + 
ECItoRENMatrixl2  *  PlatformECIRhoY  + 
ECItoRENMatrixl3  *  PlatformECIRhoZ; 
PlatformRENRhoE  =  ECItoRENMatrix21  *  PlatformECIRhoX  + 
,  ECItoRENMatrix22  *  PlatformECIRhoY  + 

ECItoRENMatrix23  *  PlatformECIRhoZ; 
PlatformRENRhoN  =  ECItoRENMatrix31  *  PlatformECIRhoX  + 
ECItoRENMatrix32  *  PlatformECIRhoY  + 
ECItoRENMatrix33  *  PlatformECIRhoZ; 


/*************************************************/ 

/*  VELOCITY  VECTOR  OF  PLATFORM  IN  THE  REN  */ 

/*  COORDINATE  FRAME  */ 

/*************************************************/ 

PlatformRENRhoRDot  =  ECItoRENMatrixll  *  PlatformECIRhoXDot  + 

ECItoRENMatrixl2  *  PlatformECIRhoYDot  + 

ECItoRENMatrixll  *  PlatformECIRhoZDot; 

PlatformRENRhoEDot  =  ECItoRENMatrixll  *  PlatformECIRhoXDot  + 

ECItoRENMatrixll  *  PlatformECIRhoYDot  + 

ECItoRENMatrixll  *  PlatformECIRhoZDot; 

PlatformRENRhoNDot  =  ECItoRENMatrixll  *  PlatformECIRhoXDot  + 

ECItoRENMatrixll  *  PlatformECIRhoYDot  + 

ECItoRENMatrixll  *  PlatformECIRhoZDot; 
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/*  ACCELERATION  VECTOR  OF  PLATFORM  IN  THE  REN  */ 

/*  COORDINATE  FRAME  */ 

/*************************************************/ 

PlatformRENRhoRDotDot  =  ECItoRENMatrixll  *  PlatformECIRhoXDotDot  + 

ECItoRENMatrixl2  *  PlatformECIRhoYDotDot  + 

ECItoRENMatrixlS  *  PlatformECIRhoZDotDot; 

PlatformRENRhoEDotDot  =  ECItoRENMatrix21  *  PlatformECIRhoXDotDot  + 

ECItoRENMatrix22  *  PlatformECIRhoYDotDot  + 

ECItoRENMatrix23  *  PlatformECIRhoZDotDot; 

PlatformRENRhoNDotDot  =  ECItoRENMatrix31  *  PlatformECIRhoXDotDot  + 

ECItoRENMatrix32  *  PlatformECIRhoYDotDot  + 

ECItoRENMatrix33  *  PlatformECIRhoZDotDot; 


return; 


} 


D.12  TargetSatellite.cpp 


/******★****************************★★**★*************★***************•*■★***★*/ 
/*  MODULE  NAME:  TargetSatellite.cpp  */ 

/*  AUTHOR:  Captain  David  Vloedman  */ 

/*  DATE  CREATED:  November  17, 1998  */ 

/*  */ 

/*  PURPOSE:  This  set  of  modules  supports  the  preprocessor  and  are  */ 

/*  used  to  establish  the  satellites  position,  velocity,  and*/ 

/*  acceleration  wrt  the  platform  in  the  REN  frame.  */ 

/*  */ 

/*  COMPILER:  Borland  C++  BuilderS  Standard  version  */ 

/*  This  compiler  should  be  used  to  compile  and  link.  */ 

/*  */ 


/*********★*****★******★★***********★★*★*★***★*★★★★**★★★*****★**********★****/ 

/******★***★★*★*****★***★*********/ 

/*  C++BUILDER“SPECIFIC  LIBRARIES  */ 

/********★**★★★★★★★******★*****★**/ 

# include  <vcl.h> 

#pragma  hdrstop 

#pragma  package ( smar t_ini t ) 

/******************************★**/ 

/*  USER-BUILT  LIBRARIES  */ 

/★********************************/ 

#include  "TimeModules .h” 

# include  "TLEInput .h" 

# include  "LaserConstants .h" 

#include  " Satellite. h" 

#include  "Aircraf t .h” 

# include  "ErrorStructure.h" 

# include  "EvaluateEphemerisModules .h" 

# include  ''SGP4SupportModules  .h” 

#include  "TargetSatellite .h" 

/***********★*★*★****★*****★******/ 

/*  C  STANDARD  LIBRARIES  */ 

/*★*******************★***********/ 
iinclude  <stdio.h> 

# include  <stdlib.h> 

# include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

#include  <math.h> 

/**★****★*****★★*★****★*★*******■*************★******************************★/ 
/***********************  FUCTIONS  *****************************/ 

/★**********★******★*★*******  ****************i«r*******************************/ 
/****************★*★★**★*★*******************★★*******★★**********★*★****★***/ 


/* 

FUNCTION  NAME: 

TargetSatellite 

*/ 

/* 

AUTHOR*: 

Captain  David  Vloedman 

*/ 

/* 

DATE  CREATED: 

November  17,  1998 

*/ 

/* 

*/ 

/* 

PURPOSE : 

This  function  will  take 

the  position  of  the  aircraft  and*/ 

/* 

the  orbital  elements  of 

the  satellite  and  calculate 

*/ 

/* 

the  azimuth  and  elevation  of  the  satellite  from  the 

*/ 

/* 

Airborn  laser  platform. 

*/ 

/* 

*/ 

/* 

INPUTS : 

NAME: 

DEFINITION: 

*/ 

/* 

Sat 

Holds  all  ephemeris  information 

*/ 

/* 

for  the  Satellite  being  studied 

*/ 

/* 

JulianDate 

The  time  to  which  the  position 

*/ 

/* 

of  sat  should  be  propagated  to 

*/ 
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/* 

ECItoRENMatrix (RowCol ) 

The  ECI  to  REN  conversion  matrix*/ 

/* 

THIS  IS  USED  TO  CONVERT  FROM  ECI.*/ 

/* 

COORDINATE  FRAME  TO  THE  RADIAL, 

*/ 

/* 

EAST,  NORTH  (REN)  FRAME, 

*/ 

/*  OUTPUTS: 

NAME: 

DESCRIPTION: 

*/ 

/* 

SatECIRhoX 

X  magnitude  in  ECI  frame  at  Jul 

*/ 

/* 

date  of  sat  radial  vector  -  the 

*/ 

/* 

platform  radial  position  vector 

*/ 

/* 

SatECIRhoY 

Y  magnitude  in  ECI  frame  at  Jul 

*/ 

/* 

date  of  sat  radial  vector  -  the 

*/ 

/* 

platform  radial  position  vector 

*/ 

/* 

SatECIRhoZ 

Z  magnitude  in  ECI  frame  at  Jul 

*/ 

/* 

date  of  sat  radial  vector  -  the 

*/ 

/* 

platform  radial  position  vector 

*/ 

/* 

SatECIRhoXDot 

X  velocity  in  ECI  frame  at  Jul 

*/ 

/* 

date  of  sat  radial  vector  -  vel 

*/ 

/* 

in  X  axis  direction. 

*/ 

/* 

SatECIRhoYDot 

Y  velocity  in  ECI  frame  at  Jul 

*/ 

/* 

date  of  sat  radial  vector  -  vel 

*/ 

n 

in  Y  axis  direction. 

*/ 

/* 

SatECIRhoZDot 

Z  velocity  in  ECI  frame  at  Jul 

*/ 

/* 

date  of  sat  radial  vector  -  vel 

*/ 

/* 

in  Z  axis  direction. 

*/ 

/* 

SatECIRhoXDotDot 

X  accel .  in  ECI  frame  at  Jul 

*/ 

/* 

date  of  sat  radial  vector  -  acc . 

*/ 

/* 

in  X  axis  direction. 

*/ 

/* 

SatECIRhoYDotDot 

Y  accel.  in  ECI  frame  at  Jul 

*/ 

/* 

date  of  sat  radial  vector  -  acc. 

*/ 

/* 

in  Y  axis  direction. 

*/ 

/* 

SatECIRhoZDotDot 

Z  accel.  in  ECI  frame  at  Jul 

*/ 

/* 

date  of  sat  radial  vector  -  acc. 

*/ 

/* 

in  Z  axis  direction. 

*/ 

/* 

SatRENRhoR 

The  Radial  Component  of  the 

*/ 

/* 

position  vector  of  the  satellite*/ 

/* 

wrt  Earth  center  in  the  REN 

*/ 

/* 

coordinate  frame. 

*/ 

/* 

SatRENRhoE 

The  East  Component  of  the 

*/ 

/* 

position  vector  of  the  satellite 

!*/ 

/* 

wrt  Earth  center  in  the  REN 

*/ 

/* 

coordinate  frame. 

*/ 

/* 

SatRENRhoN 

The  North  Component  of  the 

*/ 

/* 

position  vector  of  the  satellite 

1*/ 

/* 

wrt  Earth  center  in  the  REN 

*/ 

/* 

coordinate  frame . 

*/ 

/* 

SatRENRhoRDot 

The  Radial  Component  of  the  . 

*/ 

/* 

velocity  vector  of  the  satellite 

/* 

wrt  Earth  center  in  the  REN 

*/ 

/* 

coordinate  frame . 

*/ 

/* 

SatRENRhoEDot 

The  East  Component  of  the 

*/ 

/* 

velocity  vector  of  the  satellite 

1*/ 

/* 

wrt  Earth  center  in  the  REN 

*/ 

/* 

coordinate  frame. 

*/ 

/* 

SatRENRhoNDot 

The  North  Component  of  the 

*/ 

/* 

velocity  vector  of  the  satellite 

■*/ 

/* 

wrt  Earth  center  in  the  REN 

*/ 

/* 

coordinate  frame. 

*/ 

/* 

SatRENRhoRDotDot 

The  Radial  Component  of  the 

*/ 

/* 

accel  vector  of  the  satellite 

*/ 

/* 

wrt  Earth  center  in  the  REN 

*/ 

/* 

coordinate  frame . 

*/ 

/* 

SatRENRhoEDot Dot 

The  East  Component  of  the 

*/ 

/* 

accel  vector  of  the ' satellite 

*/ 

/* 

wrt  Earth  center  in  the  REN 

*/ 

318 


Sa tRENRhoNDo  tDo  t 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*  COMPILER: 
/* 

/* 


ErrorList 


coordinate  frame. 

The  North  Component  of  the 
accel  vector  of  the  satellite 
wrt  Earth  center  in  the  REN 
coordinate  frame. 

The  Errors  which  have  occurred 


Borland  C++  Builder 3  Standard  version 

This  compiler  should  be  used  to  compile  and  link. 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/****★**★********★*************★★★*************************★***************** ^ 

void  TargetSatellite (struct  Satellite  &Sat, 

double  JulianDate, 
double  ECItoRENMatrixll , 
double  ECItoRENMatrixl2 , 
double  ECItoRENMatrixl3 , 
double  ECItoRENMatrix21, 
double  ECItoRENMatrix22 , 
double  ECItoRENMatrix23 , 
double  ECItoRENMatrix31, 
double  ECItoRENMatrix32, 
double  ECItoRENMatrix33, 
double  &SatECIRhoX, 
double  &SatECIRhoY, 
double  ScSatECIRhoZ, 
double  ScSatECIRhoXDot, 
double  &SatECIRhoYDot, 
double  ScSatECIRhoZDot , 
double  &SatECIRhoXDotDot, 
double  ScSatECIRhoYDotDot, 
double  &SatECIRhoZDotDot ; 
double  &SatRENRhoR, 
double  ficSatRENRhoE, 
double  &SatRENRhoN, 
double  &SatRENRhoRDot, 
double  ScSatRENRhoEDot , 
double  &SatRENRhoNDot, 
double  &SatRENRhoRDotDot , 
double  ScSatRENRhoEDotDot, 
double  &Sa tRENRhoNDo tDo t, 

Error S true  ture  &ErrorLi s  t ) 

{ 

/****★*******************/ 


/*  DECLARE  VARIABLES  */ 
/********************★***/ 
double  MagSat; 

char  buffer [MAXMESSAGELENGTH]  =  "  «; 


/**************************************************^ 
/*  THESE  VARIABLES  ARE  DECLARED  ONLY  FOR  CALL  TO  */ 
/ *  SGP4  * / 

/**************************************************/ 
double  Inclination; 

double  *InclinationPtr  =  &Inclination; 
double  RightAscension; 

double  *RightAscensionPtr  =  &RightAscension; 
double  Eccentricity; 

double  *EccentricityPtr  =  &Eccentricity; 
double  MeanMotion; 

double  *MeanMotionPtr  =  &MeanMotion; 
double  ArgumentOf Perigee ; 

double  *ArgumentOfPerigeePtr  =  &ArgumentOf Peri gee; 
doub 1 e  MeanAnoma ly ; 
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double  *MeanAnomalyPtr  =  &MeanAnomaly; 
double  SatX; 

double  *SatXPtr  =  &SatX; 
double  SatY; 

double  *SatYPtr  =  &SatY; 
double  SatZ; 

double  *SatZPtr  =  &SatZ; 
double  SatXdot; 

double  *SatXdotPtr  =  &SatXdot; 
double  SatYdot; 

double  *SatYdotPtr  =  ScSatYdot; 
double  SatZdot; 

double  *SatZdotPtr  =  &SatZdot; 
double  Delta; 

double  *DeltaPtr  =  &Delta; 


/********★★**★**************★★**********************/ 

/*  ERROR  CHECK  EACH  PARAMETER  */ 

/*****************★***★***************★*★********★**/ 

if  (Sat .GetRightAscension( )  <  0) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  negative  Right  Ascension" 

Sat . GetSSCNumber ()); 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  (Sat .GetRightAscension( )  >  360) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  Right  Ascension  >  360  deg 
Sat . GetSSCNumber ()); 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

} 

if  ( Sat . GetEpochDay ( )  <  0) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Epoch  Day  <  0", 

Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

) 

if  ( Sat . GetEpochDay ( )  >  366) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Epoch  Day  >  366", 

Sat . GetSSCNumber ()); 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

) 

if  (Sat .GetEpochYear ( )  <  1950) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Epoch  Year  <  1950!", 
Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

} 

if  ( Sat . GetMeanAnomaly ( )  <  0) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  a  Mean  Anomaly  <  0", 

Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

} 
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// 

// 

// 

// 

// 

// 

// 


if  (Sat .GetMeanAnomaly ( )  >  360) 

{  sprintf (buffer, ” Satellite  SSC:  %d,  has  a  Mean  Anomaly  >  360  deg”. 

Sat . GetSSCNumber ( ) ) ; 

ErrorList . AddError ( "TargetSatellite” , 
buffer, 

1)  ; 

} 

if  (Sat.GetinclinationO  <  0) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Inclination  <  0", 

Sat . GetSSCNumber ()); 

ErrorList .AddError ( "TargetSatellite” , 
buffer, 

1)  ; 

} 

if  (Sat.GetinclinationO  >  180) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Inclination  >  180  deg". 
Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

} 

if  (Sat .GetEccentricity ( )  <  0) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Eccentricity  <  0”, 

Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  (Sat .GetEccentricity ( )  >=  1) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Eccentricity  >  1.0”, 

Sat .GetSSCNumber ()); 

ErrorList .AddError ( "TargetSatellite” , 
buffer, 

1)  ; 

} 

if  (Sat.GetArgumentOfPerigee( )  <  0) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Argument  of  Perigee  <  0", 
Sat . GetSSCNumber ( ) ) ; 

ErrorLi s  t . AddError ( " Targe tSa tel 1 i te " , 
buffer, 

1)  ; 

} 

if  (Sat .GetArgumentOf Perigee ( )  >  360) 

{  sprintf (buffer, "Satellite  SSC:  %d,  has  an  Argument  of  Per  >  360  deg 
Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  (Sat .GetMeanMotion ( )  <=  0) 

{  sprintf (buffer, "Mean  Motion  <=  0.0  for  Satellite  SSC:  %d" , 

Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1)  ; 

} 

if  ( Sat . GetRevSquared ( )  <=  0) 

{  sprintf (buffer, "Revs  per  day  squared  <=  0.0  for  Satellite  SSC:  %d 
Sat . GetSSCNumber ( ) ) ; 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

} 
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yf************************************************/ 

/*  BEGIN  CALCULATIONS  UNLESS  CRITICAL  ERROR  */ 
/********★***************************************/ 
if  (ErrorList .CriticalError ( ) ) 
return ; 


/****★*★*★*****★****★**********★★*★**************/ 
/*  INITIALIZE  OUTPUT  VARIABLES  */ 

/************************************************/ 
SatECIRhoX  =  0.0; 

SatECIRhoY  =  0.0; 

SatECIRhoZ  =  0.0; 

SatECIRhoXDot  =  0.0; 

SatECIRhoYDot  =  0.0; 

SatECIRhoZDot  =  0.0; 

SatECIRhoXDotDot  =  0.0; 

SatECIRhoYDotDot  =  0.0; 

SatECIRhoZDotDot  =  0.0; 


/*************************************************/ 

/*  FIND  THE  POSITION  AND  VELOCITY  VECTORS  OF  THE*/ 

/*  SATELLITE  FOR  THE  GIVEN  PROPAGATION  TIME  */ 

/*  (WHICH  IS  STORED  IN  " JulianDate” ) -  */ 

/*  NOTE:  SGP4  CANNOT  HANDLE  A  PERFECTLY  ROUND  */ 

/*  EPHEMERIS  (IE  Eccentricity  CANNOT  EQUAL  0.0  */ 

/***********★*************************************/ 

if  (Sat .GetEccentricity ( )  ==  0) 

{  sprintf (buffer, "Satellite' SSC :  %d,  has  an  Eccent  =  0.0,  SGP4  Error" 
Sat . GetSSCNumber ()); 

ErrorList .AddError ( "TargetSatellite" , 
buffer, 

1); 

return; 

} 

CallSGP4 (Sat, 

JulianDate, 

/  *SatXPtr, 

*SatYPtr, 

*SatZPtr, 

*SatXdotPtr, 

*SatYdotPtr, 

*SatZdotPtr, 

*InclinationPtr , 

*RightAscensionPtr, 

*EccentricityPtr, 

*MeanMotionPtr, 

*ArguinentOf  PerigeePtr , 

*MeanAnomalyPtr , 

*DeltaPtr, 

ErrorList) ; 


/*  HERE,  I  AM  SIMPLY  MOVING  THE  PARAMETERS  TO  */ 
/*  A  MATRIX.  THIS  COULD  HAVE  BEEN  DONE  WITH  A  */ 
/*  LOT  OF  SHORTCUTS,  BUT  I  DO  IT  THIS  LONG  WAY  */ 
/*  TO  ENHANCE  READABILITY  OF  THE  PROGRAM  AS  MUCH*/ 
/*  AS  POSSIBLE.  */ 

/*************************************************/ 
SatECIRhoX  =  SatX; 

SatECIRhoY  =  SatY; 
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SatECIRhoZ  =  SatZ; 


/*************************************************/ 
/*  VELOCITY  VECTOR  OF  SATEILLITE  IN  THE  REN  */ 

/*  COORDINATE  FRAME.  NOTE  THE  CONVERSION  FROM  */ 
/*  KM/ SEC  TO  KM/HOUR  */ 

/*************************************************/ 
SatECIRhoXDot  =  SatXdot; 

SatECIRhoYDot  =  SatYdot; 

SatECiRhoZDot  =  SatZdot; 


/***************************************************/ 
/*  ACCELERATION  OF  SATELLITE  IS  A  FAIRLY  STANDARD  */ 
/*  EQUATION:  ACC  =  -u*r/r^3  */ 

/***************************************************/ 
MagSat  =  sqrt (pow(SatECIRhoX, 2)  + 
pow(SatECIRhoY, 2)  + 
pow  ( SatECIRhoZ , 2 ) ) ; 


SatECIRhoXDotDot 

SatECIRhoYDotDot 

SatECIRhoZDotDot 


-(MUEARTH) *SatECIRhoX/ (pow (MagSat, 3 ) ) 
- (MUEARTH) *SatECIRhoY/ (pow (MagSat, 3) ) 
- (MUEARTH) ‘SatECIRhoZ/ (pow (MagSat, 3 ) ) 


/*  POSITION  VECTOR  OF  SAT  IN  THE  REN  */ 
/*  COORDINATE  FRAME  FROM  EARTH  CENTER  */ 
/*************************************************/ 


SatRENRhoR  =  ECItoRENMatrixll 
ECItoRENMatrixl2 
ECItoRENMatrixl3 
SatRENRhoE  =  ECItoRENMatrix21 
ECItoRENMatrix22 
ECItoRENMatrix23 
SatRENRhoN  =  ECItoRENMatrix31 
ECItoRENMatrix3 2 
ECItoRENMatrix33 


*  SatECIRhoX  + 

*  SatECIRhoY  + 

*  SatECIRhoZ; 

*  SatECIRhoX  + 

*  SatECIRhoY  + 

*  SatECIRhoZ; 

*  SatECIRhoX  + 

*  SatECIRhoY  + 

*  SatECIRhoZ; 


/*************************************************/ 

/*  VELOCITY  VECTOR  OF  PLATFORM  IN  THE  REN  */ 

/*  COORDINATE  FRAME  */ 

/*************************************************/ 

SatRENRhoRDot  =  ECItoRENMatrixll  *  SatECIRhoXDot  + 

ECItoRENMatrixl2  *  SatECIRhoYDot  + 

ECItoRENMatrixl3  *  SatECiRhoZDot; 

SatRENRhoEDot  =  ECItoRENMatrix21  *  SatECIRhoXDot  + 

ECItoRENMatrix22  *  SatECIRhoYDot  + 

ECItoRENMatrix23  *  SatECiRhoZDot; 

SatRENRhoNDot  =  ECItoRENMatrix31  *  SatECIRhoXDot  + 

ECItoRENMatrix32  *  SatECIRhoYDot  + 

ECItoRENMatrix33  *  SatECiRhoZDot; 


/*************************************************/ 
/*  ACCELERATION  VECTOR  OF  PLATFORM  IN  THE  REN  */ 
/*  COORDINATE  FRAME  */ 

/★************★**★***★★****★★***★****★★***********/ 


SatRENRhoRDotDot  = 

SatRENRhoEDotDot  = 

SatRENRhoNDotDot  = 


ECItoRENMatrixll 
ECItoRENMatrixl2 
ECItoRENMatrixl3 
ECItoRENMatrix21 
ECI toRENMa tr ix2  2 
ECItoRENMatrix23 
ECI toRENMatr ix3 1 


*  SatECIRhoXDotDot  + 

*  SatECIRhoYDotDot  + 

*  SatECIRhoZDotDot; 

*  SatECIRhoXDotDot  + 

*  SatECIRhoYDotDot  + 

*  SatECIRhoZDotDot; 

*  SatECIRhoXDotDot  + 
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return; 

} 


ECItoRENMatrix32  *  SatECIRhoYDotDot  + 
ECItoRENMatrix33  *  SatECIRhoZDotDot ; 
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D.13  TimeModules.cpp 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


MODULE  NAME: 
AUTHOR: 

DATE  CREATED: 

PURPOSE : 


COMPILER: 


TimeModules . cpp 
Captain  David  Vloedman 
September  10,  1998 

This  module  of  code  houses  the  Time  routines  which  are 
used  to  retrieve  and  manuipulate  the  times  used  as 
reference  times  for  satellite  passing.  The  numerical 
algorithms  were  provided  by  Professor  Willian  Wiesel, 
Air  Force  Institute  of  Technology  who  earlier  gleaned 
the  algorithms  from  the  text,  "Numerical  Recipes".  It 
was  converted  from  Fortran  to  C++  by  the  author. 

Borland  C++  Builder 3  Standard  version 

This  compiler  should  be  used  to  compile  and  link. 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/*******★*★★****************★*******★*****★****★*****************★****★★★★★**/ 

/**********★★**************+******/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/*********************************/ 

# include  <vcl.h> 

#pragma  hdrstop 

#pragma  package ( smar t_ini t ) 

/*******★*************************/ 

/*  C  STANDARD  LIBRARIES  */ 

/*★★★*★*★*************★***********/ 

#include  <stdio.h> 

#include  <stdlib.h> 

# include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

/****************************★****/ 


/*  USER-BUILT  LIBRARIES  */ 
/*********************************/ 
#include  "TimeModules .h” 

#include  "ErrorStructure.h" 


/* 

FUNCTION  NAME: 

ConvertCalenderToJulian 

*/ 

/* 

AUTHOR: 

Captain  David 

Vloedman 

*/ 

/* 

DATE  CREATED: 

September  10, 

1998 

*/ 

/* 

*/ 

/* 

PURPOSE : 

This  function 

will  read 

in  the  calender  date  and  return 

*/ 

/* 

the  equivalent  modified 

Julian  date.  Note 

that  seconds 

*/ 

/* 

are  accurate  i 

to  only  five  decimal  places. 

*/ 

/* 

*/ 

/* 

INPUTS : 

NAME: 

DEFINITION: 

*/ 

/* 

CYear 

Holds  the  calender 

year 

*/ 

/* 

Cmonth 

Holds  the  Calender 

month (1  -  12) 

*/ 

/* 

CDay 

Holds  calender  day 

*/ 

/* 

CHour 

Holds  the  calender 

hour 

*/ 

/* 

CMinute 

Holds  the  calender 

minute 

*/ 

/* 

CSecond 

Holds  the  calender 

second 

*/ 

/* 

ErrorList 

Holds  the  Errors  found 

*/ 

/* 

*/ 

/* 

OUTPUTS : 

NAME: 

DEFINITION: 

*/ 
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JulianDate 


/* 

/* 

/* 

/*  COMPILER: 
/* 

/* 


Holds  the  Julian  equivalent  to 
the  calender  date. 


Borland  C++  Builder!  Standard  version 

This  compiler  should  be  used  to  compile  and  link. 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/*★***★***************************************************************★******/ 
void  ConvertCalenderToJulian (int  CYear, 

int  CMonth, 
int  CDay, 
int  CHour, 
int  CMinute, 
double  CSecond, 
double  &JulianDate, 

Errors true  ture  &ErrorLi s  t ) 

{ 

long  int  IGreg; 
long  int  IJul; 
long  int  Ick; 
int  JulianYear; 
int  JulianMonth; 
int  Ja; 


IGreg  =  588829; 


if  (CYear  <  0) 

CYear  =  CYear  +  1; 


i f  ( CMonth  >  2 ) { 

JulianYear  =  CYear; 
JulianMonth  =  CMonth  +  1;} 
else  { 

JulianYear  =  CYear  -*  1; 
JulianMonth  =  CMonth  +13;  } 


IJul  =  int (365. 25  *  JulianYear)  +  int (30. 6001  *  JulianMonth)  +  CDay  +  1720995; 
Ick  =  CDay  +  31* (CMonth  +  12*cyear) ; 

if (Ick  >=  IGreg) { 

Ja  =  int (0 . 01* JulianYear ) ; 

IJul  =  IJul  +  2  -  Ja  +  int(0.25  *  Ja) ; } 


IJul  =  IJul  -  2440000; 

JulianDate  =  double (IJul)  -  0.50000 

+  double (CHour /24 . 0) 

+  double (CMinute/ 1440 . 0) 

+  double (CSecond/86400.0); 


return; 

} 


/* 

FUNCTION  NAME: 

ConvertJulianToCalender 

*/ 

/* 

AUTHOR: 

Captain  David  Vloedman 

*/ 

/* 

/* 

/* 

DATE  CREATED: 

September  10,  1998 

*/ 

*/ 

*/ 

PURPOSE : 

This  function  will  read 

in  the 

Julian  date  and  return 

/* 

the  equivalent  calender 

date . 

Note  that  seconds 

*/ 

/* 

are  accurate  to  only  five  decimal  places. 

*/ 
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/*  */ 


7* 

INPUTS : 

NAME; 

DEFINITION; 

*7 

7* 

JulianDate 

Holds 

the  Julian  equivalent 

to  *7 

7* 

the  calender  date. 

7* 

*7 

7* 

OUTPUTS : 

.  NAME: 

DEFINITION: 

*7 

7* 

CYear 

Holds 

the  calender  year 

*7 

7* 

Cmonth 

Holds 

the  Calender  month (1  - 

12)*7 

7* 

CDay 

Holds 

calender  day 

*7 

7* 

CHour 

Holds 

the  calender  hour 

*7 

7* 

CMinute 

Holds 

the  calender  minute 

^"7 

7* 

CSecond 

Holds 

the  calender  second 

*7 

7* 

ErrorList 

Holds 

the  Errors  found 

*7 

7* 

*7 

7* 

COMPILER : 

Borland  C++  Builder3 

Standard 

version 

*7 

7* 

This  compiler  should 

be  used  to  compile  and  link. 

*7 

7* 

*7 

/*****★★★★*******★★★★******★***★****★*********★★**★*★************************/ 
void  ConvertJulianToCalender (int  &CYear, 

int  StCMonth, 
int  ScCDay, 
int  ScCHour , 
int  ScCMinute, 
double  &CSecond, 
double  JulianDate, 

Error  Structure  ScErrorList) 

{ 

double  Fraction; 
long  int  IJul; 
long  int  IGreg; 
long  int  Ja; 
long  int  Jb; 
long  int  Jc; 
long  int  Jd; 
long  int  Je; 
long  int  JAlpha; 

IGreg  =  2299161; 

IJul  =  int (JulianDate  +  0.5)  +  2440000; 

Fraction  =  JulianDate  +  0.5  -  double(IJul  ~  2440000); 

if  (IJul  >=  IGreg)  { 

JAlpha  =  int(((IJul  -  1867216)  -  0.25)736524.25); 

Ja  =  IJul  +  1  +  JAlpha  -  int (0.25  *  JAlpha);} 

else 

Ja  =  IJul; 

Jb  =  Ja  +  1524; 

Jc  =  int(6680.0  +  ( (Jb  -  2439870)  -  122.1)7365.25); 

Jd  =  365  *  Jc  +  int (0.25*Jc) ; 

Je  =  int((Jb  -  Jd) 730 . 6001) ; 

CDay  =  Jb  -  Jd  -  int (30.6001  *  Je) ; 

CMonth  =  Je  -  1; 
if  (CMonth  >  12) 

CMonth  =  CMonth  -  12; 

CYear  =  Jc  -  4715; 
if  (CMonth  >  2) 

CYear  =  CYear  -  1; 
if  (CYear  <=  0) 

CYear  =  CYear  -  1; 
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CHour  =  int(24.0  *  Fraction); 

Fraction  =  Fraction  -  double (CHour) /24 . 00 ; 

CMinute  =  int( 1440.0  *  Fraction); 

Fraction  =  Fraction  -  double (CMinute) /1440 . 0 

CSecond  =  Fraction  *  86400.0; 

if  (CSecond  >=60.0)  { 

CSecond  =  CSecond  -  60; 

CMinute  =  CMinute  +  1 ; } 

if  (CMinute  >=60)  { 

CMinute  =  CMinute  -  60; 

CHour  =  CHour  +  1 ; } 

if  (CHour  >=24)  { 

CHour  =  CHour  -  24; 

CDay  =  CDay  +1;  } 


return; 

} 
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D.14  TLEInputcpp 


/*  MODULE  NAME:  TLEInput.h  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  August  18,  1998  */ 
/*  */ 
/*  PURPOSE:  This  module  of  code  houses  the  routines  which  input  the  */ 
/*  Two  Line  Element  (TLE)  sets  from  an  input  file.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  Builder 3  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/********★**★**★****************★************★***************+***************/ 

/*************★*******★*★+*★******/ 

/*  C++BUILDER- SPECIFIC  LIBRARIES  */ 

/*********★★★★***********★********/ 

# include  <vcl.h> 

#pragma  hdrstop 

#pragma  package ( smart_ini t ) 

/*************★**★★****★**********/ 

/*  USER-BUILT  LIBRARIES  */ 

/*★***★***************★***********/ 

# include  ’’TLEInput.h” 

#include  "LaserConstants .h" 

#include  ” Satellite. h" 

#include  "ErrorStructure.h" 

/******★*★**★****★*******★*******★/ 

/*  C  STANDARD  LIBRARIES  */ 

/**********************★★***★*★***/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

/***********************************************************************+**Vf*/ 

/*****★**★****★*★*******  RUCTIONS  *************★***************/ 

/******i<f***********************************ilr*********************************/ 


FUNCTION  NAME: 
AUTHOR: 

DATE  CREATED: 


ReadTLEFile 

Captain  David  Vloedman 

August  18,  1998 


PURPOSE : 


This  function  will  read  in  the  information  contained  in  */ 
an  input  file  holding  Two  Line  Element  (TLE)  sets.  */ 

These  TLEs  hold  the  ephemeris  data  for  all  of  the  */ 

satellites  we  will  be  covering.  It  uses  the  TLE  */ 

information  to  populate  a  satellite  data  structure  which*/ 
is  used  throughout  the  program.  */ 

*/ 

NAME:  DEFINITION:  */ 

FileName  Holds  the  name  of  the  Input  File*/ 


OUTPUTS : 


NAME: 

SatArray 

ErrorList 


DEFINITION: 

Returns  satellite  information 
Returns  error  information 


COMPILER:  Borland  C++  BuilderS  Standard  version 

This  compiler  should  be  used  to  compile  and  link. 
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/**********************************************★**********★**********★**★****/ 
void  ReadTLEFile(char  FileName [MAXNAMELENGTH] , 
struct  SatStructure  ScSatArray, 

Errors true ture  &ErrorList) 


int 

i  ; 

FILE 

^TLEInputFile; 

char 

SSCString [ SSCLENGTH+l ] 

= 

II 

II 

char 

Cardstring [CARDLENGTH+1] 

= 

H 

II 

char 

Classification [ CL AS SLENGTH+ 1 ] 

= 

II 

II 

char 

Int ID [ INTNUMLENGTH+1 ] 

= 

tl 

II 

char 

EYear [ EYEARLENGTH+ 1 ] 

= 

II 

II 

char 

EDay [ EDAYLENGTH+ 1 ] 

= 

II 

II 

char 

Rev2 [ REV2LENGTH+ 1 ] 

= 

II 

II 

char 

Rev3 [ REV3  LENGTH+ 1 ] 

= 

II 

II 

char 

RevPower  [REVPOWERLENGTH+1  ] 

= 

11 

II 

char 

BStar [BSTARLENGTH+1] 

= 

II 

char 

BStarPower [BPOWERLENGTH+1 ] 

= 

II 

» 

char 

EType [ETYPELENGTH+1 ] 

= 

H 

M 

char 

ElSet [ELSETLENGTH+1 ] 

= 

II 

II 

char 

Inc 1 in [ INCLINLENGTH+1 ] 

= 

II 

II 

char 

RightAs [RIGHTASLENGTH+l] 

II 

H 

char 

Ecc [ECCLENGTH+1] 

II 

ir 

char 

ArgPer [ ARGPERLENGTH+1 ] 

= 

II 

II 

char 

MeanAn [MEANANLENGTH+1 ] 

= 

II 

H 

char 

MeanMo [MEANMOLENGTH+1 ] 

II 

If 

char 

EpochRev [EPOCHREVLENGTH+1 ] 

= 

II 

II 

int 

Car  dNuitODer  ; 

long  int 

SSCNumber ; 

long  int 

SSCCheck; 

int 

EpochYear; 

int 

Ephemer i sType ; 

int 

ElSetNurnber; 

long  double 

EpochDay; 

long  double 

RevSquared ; 

long  double 

RevCubed ; 

long  double 

Rev3  Power ; 

long  double 

BStarDrag; 

long  double 

BPower; 

long  double 

Multiplier; 

long  double 

Inclination; 

long  double 

RightAscension; 

long  double 

Eccentricity; 

long  double 

ArgumentOf Perigee ; 

long  double 

MeanAnomaly ; 

long  double 

MeanMotion; 

long  int 

RevolutionNumber ; 

char 

buffer [MAXINPUTLINELENGTH] 

" 

/ 

int 

InputLinesRead ; 

div_t 

LineCheck; 

/***********★***************★***★********★***********/ 
/*  OPEN  THE  FILE.  IF  THE  FILE  CANNOT  BE  OPENED,  */ 
/*  REPORT  THE  ERROR.  */ 

/**★*******★***************************************** y 

if  { (TLEInputFile  =  fopen (FileName,  "r " ) ) ==NULL) 

{  ErrorList . AddError ( "ReadTLEFile" , 

"Cannot  open  TLE  Input  File", 
1)  ; 

} 
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InputLinesRead  =  0; 

SatArray .NumSats  =  0; 

/***********************★★★**★*************************/ 

/*  READ  THE  TLE  FILE  LINE  BY  LINE  UNTIL  THE  END  OF  */ 

/*  THE  FILE  IS  REACHED,  OR  UNLESS  THERE  IS  A  CRITICAL*/ 

/*  ERROR  WHICH  HAS  BEEN  ENCOUNTERED.  */ 

/**************************************************★***/ 
while ( (ErrorList .CriticalError 0 ==  NOERROR)  && 

(f gets (buffer,  MAXINPUTLINELENGTH,  TLEInputFile)  !=NULL)) 

{ 

/*************************************★****/ 

/*  COUNT  THE  LINES  READ  FROM  THE  FILE  */ 

/****★*********★★★****************★***★★***/ 

InputLinesRead  =  InputLinesRead  +  1; 

/***★*★★**★***★****★★******************★*★**********/ 

/*  get  the  card  NUMBER  (1  OR  2)  OF  THE  ELEMENT  READ  */ 
/*******★★*****★************★***★**★*****************/ 

CardString[0]  =  buf fer [CARDPOS-1] ; 

CardNumber  =  att»i  (Cardstring)  ; 

/★******★★************★***************★***★★*****★**/ 

/*  FIND  REMAINDER  OF  LINES  READ/ 2  TO  DETERMINE  */ 

/*  IF  WE  ARE  ON  AN  EVEN  OR  ODD  NUMBER  INPUT  LINE  */ 
/**★**★********★***★******★*****★*********★********★/ 

LineCheck  =  div (InputLinesRead,  2); 

/****************** ************************/ 

/*  COUNT  THE  LINES  READ  FROM  THE  FILE  */ 

/******************************★*****★*****/ 
if  (CardNumber  ==  1) 

{  if  ( LineCheck. rem  !=  1) 

/******************************************/ 

/*  IF  CARD  "1"  LINE  FALLS  ON  AND  EVEN  LINE*/ 

/*  OR  CARD  "2”  FALLS  ON  AN  ODD  LINE  THEN  */ 

/*  THERE  IS  AN  ERROR.  */ 

/**********★************★***★**************/ 

{  Er r orLi s  t . AddEr r or ( " ReadTLEF i 1 e ” , 

"Input  line  is  out  of  place.  Data  corrupt 

0); 

ErrorList .AddErr or ( "  ", 

buffer, 

0); 

} 

^******************************************/ 

/*  READ  THROUGH  THE  FIELDS  OF  THE  FIRST  */ 


/*  CARD  LINE  AND  PULL  THE  RELEVANT  */ 
/*  NUMBERS  OUT.  ALL  OF  THE  CONSTANTS  */ 
/*  BELOW  CAN  BE  FOUND  IN  */ 
/*  "LASERCONSTANTS.H"  */ 
/*******★**********************************/ 
/******************************************/ 
/*  GET  SSC  NUMBER  OF  SATELLITE  */ 
/******************************************/ 
for  (i  =  0;  i<SSCLENGTH;  i++) 

SSCString[i]  =  buf fer [i+SSCPOS-1] ; 
SSCNumber  =  atoi (SSCString) ; 


/★***★★★★*****★★**★★★★****★★***★*★★***★*★★*/ 
/*  GET  CLASSIFICATION  OF  SATELLITE  DATA  */ 
/********★*★*******************************/ 
Classif ication[0]  =  buf fer [CLASSPOS-1] ; 


331 


/******************************************/ 

/*  GET  INTERNATIONAL  ID  OF  SATELLITE  */ 

/******************************************/ 
for  (i  =  0;  i<INTNUMLENGTH;  i++) 

IntID[i]  =  buffer [i+INTNUMPOS-1] ; 

/★*★**★★***★**********★********************/ 

/*  GET  EPOCH  YEAR  OF  DATA  RECORDING  */ 

/******★***★★*★*************★**************/ 
for  (i  =  0;  i<EYEARLENGTH;  i++) 

EYear[i]  =  buffer [i+E YEARPOS -I] ; 

EpochYear  =  atoi(EYear); 

/**★***★****************************************★***/ 

/*  YEAR  IS  GIVEN  IN  TWO  DIGITS  -  THIS  IS  AN  */ 

/*  ATTEMPT  TO  CONVERT  TO  FOUR  DIGITS  TO  BYPASS  */ 

/*  THE  Y2K  BUG.  THIS  MUST  BE  CHANGED  IN  2040.  */ 

/***************************************************/ 
if  (EpochYear  <  40) 

EpochYear  =  EpochYear  +  2000; 

else 

EpochYear  =  EpochYear  +  1900; 

/******************************************/ 

/*  GET  EPOCH  DAY  OF,  DATA  RECORDING  */ 

/******************************************/ 
for  (i  =  0;  i<EDAYLENGTH;  i++) 

EDay[i]  =  buf fer [i+EDAYPOS-1] ; 

EpochDay  =  atof(EDay); 

/*★*****************★**★***★********★******/ 

/*  GET  NUMBER  OF  REVOLUTIONS  SQUARED  AS  */ 

/*  OF  THE  EPOCH  TIME  */ 

/*★★*******★*******************************/ 
for  (i  =  0;  i<REV2LENGTH;  i++) 

Rev2[i]  =  buffer [i+REV2POS-l] ; 

RevSquared  =  atof(Rev2); 

/*★★*******★***★*★******★★*****************/ 

/*  GET  NUMBER  OF  REVOLUTIONS  CUBED  AS  .  */ 

/*  OF  THE  EPOCH  TIME  */ 

/********************************★*★**★****/ 
for  (i  =  0;  i<REV3 LENGTH;  i++) 

Rev3[i]  =  buffer [i+REV3POS-l] ; 

RevCubed  =  atof(Rev3); 

for  (i  =  0;  i<REVPOWERLENGTH;  i++) 

RevPower[i]  =  buf fer [i+REVPOWERPOS-1] ; 

Rev3 Power  =  atof (RevPower ) ; 

Multiplier  =  pow(10,  Rev3 Power) ; 

RevCubed  =  RevCubed  *  Multiplier; 

RevCubed  =  RevCubed  /  pow(10,  RE V3 LENGTH-1 ) ; 

/******************************************/ 

/*  GET  AIR  DRAG  COEFFICIENT  OF  SATELLITE  */ 
/★★****************************************/ 
for  (i  =  0;  i<BSTARLENGTH;  i++) 

BStarEi]  =  buf fer [i+BSTARPOS-1] ; 

BStarDrag  =  atof(BStar); 

for  (i  =  0;  i<BPOWERLENGTH;  i++) 

BStarPower [i]  =  buf fer [i+BPOWERPOS-1] ; 

BPower  =  atof (BStarPower) ; 

Multiplier  =  pow(10,  BPower); 

BStarDrag  =  BStarDrag  *  Multiplier; 
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BStarDrag  =  BStarDrag  /  pow(10,  BSTARLENGTH-1) ; 


/********★**★******************★***★*******/ 
/*  GET  EPHEMERIS  TYPE  */ 

/******************************************/ 
for  (i  =  0;  i<ETYPELENGTH;  i++) 

EType[i]  =  buf fer [i+ETYPEPOS-1] ; 
EphemerisType  =  atoi(EType); 


/******************★********★******★*******/ 
/*  GET  ELEMENT  SET  NUMBER  */ 

/********************************★★********/ 
for  (i  =  0;  i<ELSETLENGTH;  i++) 

ElSet[i]  =  buffer [i+ELSETPOS-1] ; 
ElSetNumber  =  atoi(ElSet); 


/*  RECORD  CARD  1  DATA  IN  SatArray  */ 


SatArray .  Sat  [  SatArray .  NiomSats  ] 
SatArray . Sat [ SatArray . NumSats ] 
SatArray . Sat [ SatArray . NumSats ] 
SatArray . Sat [ SatArray . NumSats ] 
SatArray . Sat [ SatArray . NumSats ] 
SatArray . Sat [ SatArray . NumSats ] 
SatArray . Sat [ SatArray . NumSats ] 
SatArray . Sat [ SatArray . NumSats ] 
SatArray . Sat [ SatArray . NumSats ] 
SatArray . Sat [ SatArray . NumSats ] 
SatArray . Sat [ SatArray . NumSats ] 


.SetTLELinel (buffer) ; 

.  SetSSCNumber (SSCNumber) ; 

.  SetSecurityClass (Classification) ; 
.  SetlnternationallD(IntlD) ; 

.  SetEpochYear (EpochYear) ; 

.  SetEpochDay (EpochDay) ; 

.  SetRevSquared (RevSquared) ; 

.  SetRevCubed (RevCubed) ; 

.  SetBStarDrag (BStarDrag) ; 

.  SetElementSetNumber (ElSetNumber) ; 
.  SetEphemerisType (EphemerisType) ; 


} 

else  i f ( Car dNumber  ==  2) 

{ 


/****★************************★************/ 

/*  CHECK  SSC  NUMBER  OF  SATELLITE  TO  MAKE  */ 

/*  SURE  THE  DATA  IS  STILL  DESCRIBING  THE  */ 

/*  SAME  SATELLITE  */ 

/******************************************/ 
for  (i  =  0;  i<SSCLENGTH;  i++) 

SSCString[i]  =  buf fer [i+SSCPOS-1] ; 

SSCCheck  =  atoi (SSCString) ; 
if  (SSCNumber  !=  SSCCheck) 

{  Err or L i s  t . AddEr r or ( "  ReadTLEF i 1 e " , 

"Invalid  SSC  Number  in  element  Record:", 

0); 

ErrorLi s t . AddError ( "  ", 


/**************************★***************/ 
/*  IF  CARD  "1"  LINE  FALLS  ON  AND  EVEN  LINE*/ 


/*  OR  CARD  "2"  FALLS  ON  AN  ODD  LINE  THEN  */ 
/*  THERE  IS  AN  ERROR.  */ 
/*  LineCheck.rem  IS  EITHER  0  OR  1 .  "rem"  */ 
/*  STANDS  FOR  "REMAINDER".  */ 


/******★***********************************/ 
if  (LineCheck.rem  !=  0) 

{  ErrorList. AddError ( "ReadTLEFile" , 

"Input  line  is  out  of  place.  Data  corrupt 

0); 

ErrorLi s t . AddError ( "  ", 
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buffer, 

0)  ; 

} 

/★****★**★*★***★***********★★**************/ 

/*  GET  INCLINATION  OF  SATELLITE  */ 

/★********************★**★*****★***********/ 
for  (i  =  0;  i<INCL INLENGTH;  i++) 

Inclin[i]  =  buf fer [i+INCLINPOS-1] ; 

Inclination  =  atof (Inclin) ; 

/*************************** ***************/ 

/*  GET  RIGHT  ASCENSION  OF  SATELLITE  */ 

/******************************************/ 
for  (i  =  0;  i<RIGHTASLENGTH;  i++) 

RightAs[i]  =  buf fer [i+RIGHTASPOS-1] ; 

RightAscension  =  atof  (Right tAs )  ; 

/****************★*★***********************/ 

/*  GET  ECCENTRICITY  OF  SATELLITE  */ 
/*************************★★*********★*****/ 
for  (i  =  0;  i<ECCLENGTH;  i++) 

Ecc[i]  =  buffer [i+ECCPOS-1] ; 

Eccentricity  =  atof(Ecc); 

Eccentricity  =  Eccentricity  /  10000000; 

/*★*****************************★**********/ 

/*  GET  ARGUMENT  OF  PERIGEE  OF  SATELLITE  */ 
/*****★*****************★***********★******/ 
for  (i  =  0;  i<ARGPERLENGTH;  i++) 

ArgPer[i]  =  buf fer [i+ARGPERPOS-1] ; 

ArgumentOf Perigee  =  atof (ArgPer) ; 

/*********************★**************★*****/ 

/*  GET  MEAN  ANOMALY  OF  SATELLITE  */ 

/*******************************★**********/ 
for  (i  =  0;  i<MEANANLENGTH;  i++) 

MeanAn[i]  =  buf fer [i+MEANANPOS~l ] ; 

MeanAnomaly  =  atof (MeanAn) ; 

/**************★★*******★*******★*★*****★★*/ 

/*  GET  MEAN  MOTION  OF  SATELLITE  */ 

/*******★**************************★*******/ 
for  (i  =  0;  i<MEANMOLENGTH;  i++) 

MeanMo[i]  =  buf fer [i+MEANMOPOS-1] ; 

MeanMotion  =  atof (MeanMo) ; 

/**************★***************************/ 

/*  GET  REVOLUTION  NUMBER  AT  EPOCH  */ 

/*****★★*★**************★******************/ 
for  (i  =  0;  i<EPOCHREVLENGTH;  i++) 

EpochRev[i]  =buffer[i+EPOCHREVPOS-l]; 

RevolutionNumber  =  atoi (EpochRev) ; 

/********★***★*****************************/ 

/*  RECORD  CARD  2  DATA  IN  Sat Array  */ 

/******************************************/ 

SatArray . Sat [SatArray.NumSats] . SetTLELine2 (buf fer) ; 

SatArray . Sat [SatArray.NumSats] . Setinclination ( Inclination) ; 
SatArray . Sat [SatArray ,NumSats] . SetRightAscens ion (RightAscension) 
SatArray . Sat [SatArray .NumSats] . SetEccentricity (Eccentricity) ; 

SatArray .  Sat  [  SatArray .  NumSats  ]  .  Set  ArgumentOf  Perigee  (ArgumentOf  Per  i  gee )  ; 
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SatArray . Sat [SatArray .NumSats] . SetMeanAnomaly (MeanAnomaly) ; 
SatArray . Sat [SatArray.NumSats] , SetMeanMotion (MeanMotion) ; 
SatArray . Sat [SatArray .NumSats] . SetRevAtEpoch (RevolutionNumber) 
SatArray  .NumSats  =  SatArray  .NiimSats  +  1; 

} 

else 

{  ErrorList . AddError ( ”  ReadTLEFile" , 

"Invalid  Element  Record:", 

0); 

ErrorList .AddError ( "  ", 

buffer, 

0)  ; 

} 

} 

fclose(TLEInputFile) ; 

} 
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Appendix  E. 
Test  Module  Code 


E.1  EvaluateEphemerisForm.cpp 


/*  MODULE  NAME:  EvaluateEphemerisForm.cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  October  1,  1998  */ 
/*  */ 
/*  PURPOSE:  This  is  the  Form  which  can  be  used  to  test  the  modules  */ 
/*  created  in  EvaluateEphemerisModules . cpp .  This  Form  */ 
/*  Takes  all  the  inputs  to  evaluate  a  single  satellite  */ 
/*  ephemeris  against  a  single  airborne  platform.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  Builder3  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/***★*****************************★**********★*******************************/ 

/**★★*******★*************★**★****/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/***★*******************★****★**★*/ 

# inc lude  < vc 1 . h> 

#pragma  hdrstop 

#pragma  package ( smart_init ) 

#pragma  resource  " * . dfm" 

/*********************************j/ 

/*  USER-BUILT  LIBRARIES  */ 

/****★*********★******************/ 

#include  "TimeModules .h" 

#include  "LaserConstants .h" 

# inc lude  "ErrorStructure .h" 

# include  "  Eva lua t eEphemeri s Form .  h '' 

# inc lude  "Aircraft . h" 

# inc lude  "Satellite.h" 

#include  "EvaluateEphemerisModules .h” 

# inc lude  "TLEInput.h" 

/******★*******★*****  *  *  *********** ! 

/*  C  SPECIFIC  LIBRARIES  */ 

/*********************************/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string,h> 

#include  <iostream.h> 

#include  <conio.h> 

/*******************************/ 

/*  CREATE  THE  FORM  */ 

/*******************************/ 

TForml  *Forml; 


// - 

_ fas teal 1  TForml :: TForml (TComponent*  Owner) 

:  TForm ( Owner ) 

{ 

} 
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/******************************************************/ 

/*  THIS  PROCURE  HANDLES  THE  BUTTON  TO  ACTUALLY  RUN  */ 

/*  THE  PROCESSING  OF  THE  SINGLE  EPHEMERIS  */ 

/************★*★*****★**************★*★****************/ 
void  _ fastcall  TForml :: Eva luateEphemeri sButtonC lick (TObject  *Sender) 

{ 


/*****★★******★★***********************★************/ 

/*  VARIABLE  LIST  */ 

/**********************★*********★*********★********/ 

Error Structure  ErrorList; 

,  Err or Structure  *ErrorPtr=&ErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 
Satellite*  Sat; 

Sat  =  new  Satellite; 

Aircraft*  ABLPlatform; 

ABLPlatform  =  new  Aircraft; 
int  SatelliteInView; 

int  *SatInViewPtr  =  &SatelliteInView; 

int  Orbit InView; 

int  *OrbitInViewPtr  =  &OrbitInView; 

char  Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 

char  buff  [MAXNAMELENGTH]  ; 

double  ReferenceHour;  /******★********★************/ 

double  ReferenceMinute ;  /*  THE  REFERENT  ANGLE  */ 

double  ReferenceSecond;  /*  OF  THETA  G  IS  KNOWN  AS  */ 

double  RefModJulianDate;  /*  THE  REFERENCE  ANGLE  */ 

double  ThetaGInRadians ;  /****************************/ 

double  *ThetaPtr  = . &ThetaGInRadians ; 

double  ThetaGInDegrees ; 

int  CalcYear; 

int  CalcMonth; 

int  CalcDay; 

int  CalcHour; 

int  CalcMinute; 

double  CalcSecond; 

int  i  ; 


double  Inclination; 

double  *InclinationPtr  =  &Inclination; 
double  RightAscension; 

double  *RightAscensionPtr  =  ScRightAscension; 
double  Eccentricity; 

double  *EccentricityPtr  =  &Eccentricity; 
double  MeanMotion; 

double  *MeanMotionPtr  =  ScMeanMotion; 
double  ArgumentOf Perigee; 

double  *ArgumentOfPerigeePtr  =  ScArgumentOfPerigee; 
double  MeanAnomaly; 

double  *MeanAnoinalyPtr  =  ScMeanAnomaly; 
double  SatX; 

double  *SatXPtr  =  &SatX; 
double  SatY; 

double  *SatYPtr  =  &:SatY; 
double  SatZ; 

double  *SatZPtr  =  &SatZ; 
double  SatXdot; 

double  *SatXdotPtr  =  &SatXdot; 
double  SatYdot; 

double  *SatYdotPtr  =  &SatYdot; 
double  SatZdot; 

double  *SatZdotPtr  =  &SatZdot; 
double  Delta; 

double  *DeltaPtr  =  &Delta; 
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double  JulianDate; 

double  *JulianDatePtr  =  &JulianDate; 
double  TimeToNextRun; 
double  TimeToRise; 

double  *TimeToRisePtr  =  &TimeToRise; 
double  Dvector; . 
double  *DvectorPtr  =  &Dvector; 
double  CriticalRadius; 

double  *CriticalRadiusPtr  =  ScCriticalRadius  ; 
double  SatRadius ; 

double  *SatRadiusPtr  =  &SatRadius; 


/****★★*******★***********★******★**★****★**★*/ 

/*  GET  SATELLITE  EPHEMERIS  INFORMATION  */ 

/**★******★*****************★*******★****★★★**/ 

Sat->SetSSCNuinber  (SSCEdit->Text  .Toint  ( ) )  ; 
strcpy (buff ,ClassEdit->Text.c_str ( ) ) ; 

Sat“>SetSecurityClass (buf f ) ; 

strcpy (buf f , IntIDEdit->Text .c_str ( ) ) ; 

Sat->SetInternationalID (buf f ) ; 

Sat->SetEpochYear {EpochYearEdit“>Text .Toint ( ) ) ; 

Sat->SetEpochDay (EpochDayEdit->Text .ToDouble ( ) ) ; 

Sat“>SetRevSquared (RevSquaredEdit->Text . ToDouble ()); 

Sat->SetRevCubed (RevCubedEdit->Text . ToDouble ()); 

Sat“>SetBStarDrag (BStarEdit->Text .ToDouble ( ) ) ; 

Sat->SetEphemerisType (EphemerisTypeEdit->Text .Toint ()); 
Sat“>SetElementSetNuinber(ElSetEdit-'>Text.  Toint  0  )  ; 
Sat->SetInclination(InclinationEdit->Text .ToDouble ( ) ) ; 
Sat-->SetRightAscension (RightAscensionEdit->Text .ToDouble ( ) ) ; 
Sat“>SetEccentricity(EccentricityEdit->Text .ToDouble ( ) ) ; 

Sat ’'>SetArg\imentOf  Perigee  (ArgumentOf  PerigeeEdit->Text .  ToDouble  ( )  )  ; 
Sat->SetMeanAnomaly  (MeanAnoinalyEdit->Text .  ToDouble  ( )  )  ; 
Sat->SetMeanMotion(MeanMotionEdit->Text .ToDouble ( ) ) ; 
Sat->SetRevAtEpoch (RevNuinberEdit->Text .Toint ( ) ) ; 

/*********************************************/ 

/*  GET  AIRCRAFT  POSITION  INFORMATION  */ 

/*********★**★**************★*★********★**★***/ 
ABLPlatforin->SetAltitude (AltitudeEdit->Text. ToDouble 0 ) ; 
strcpy (buff  ,HeniisphereEdit->Text.c_str ()  )  ; 
if  (  ( !  (strcmp  (buf  f ,  "N")))  ||  ( !  (strcnip  (buf  f ,  "n")))) 
ABLPlatform->SetLatitudeHemisphere (0) ; 
else  if  ((! (strcmp (buf f,  "S”)))  ||  (! (strcmp (buf f,  "s")))) 

ABLPlatform~>SetLatitudeHemi sphere (1) ; 

else 

{  ErrorList .  AddError  ( "EvaluateEphemerisForm'' , 

"Lat  Hemisphere  must  be  north(N)  or  south(S)", 
1); 

} 

ABLPlatf orm->SetLatitudeDegree (LatitudeDegreeEdit->Text . ToDouble ( ) ) ; 
ABLPlatf orm->SetLatitudeMinute (LatitudeMinuteEdit-“>Text . ToDouble ()); 
ABLPlatf orm->SetLatitudeSecond (LatitudeSecondEdit->Text . ToDouble ( ) ) ; 
ABLPlatf orm~>SetLongitudeDegree (LongitudeDegreeEdit”>Text .ToDouble ( ) ) ; 
ABLPlatf orm“>SetLongitudeMinute (LongitudeMinuteEdit“>Text . ToDouble ()); 
ABLPlatf orm->SetLongitudeSecond (LongitudeSecondEdit->Text . ToDouble ()); 
ABLPlatf orm->SetAltitude (AltitudeEdit->Text .ToDouble ( ) ) ; 

ABLPlatf orm~>SetVelocityX (VelocityXEdit->Text .ToDouble ( ) ) ; 
ABLPlatform->SetVelocityY(VelocityYEdit-*>Text .ToDouble ( ) ) ; 

ABLPlatf orm->SetVelocityZ (VelocityZEdit->Text .ToDouble ( ) ) ; 

/**************★*★*****★★★★**★***★******★***★★/ 

/*  GET  GREENWICH  MERIDIAN  REFERENCE  */ 
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/*******************★★****★★******★**********★/ 
ReferenceHour  =  ReferenceHourEdit->Text .ToDouble ( ) ; 
ReferenceMinute  =  ReferenceMinuteEdit->Text .ToDouble ( ) ; 
ReferenceSecond  =  ReferenceSecondEdit->Text .ToDouble ( ) ; 
RefModJulianDate  =  RefModJulianDateEdit->Text . ToDouble ( ) 
TimeToNextRun  =  SecondsToRunEdit->Text .ToDouble () ; 

/****★*★*********★*★**************************/ 

/*  GET  CURRENT  TIME  */ 

/********★********★*****★*****★******★********/ 

CalcYear  =  CalcYearEdit->Text .Toint ( ) ; 

CalcMonth  =  CalcMonthEdit->Text .Toint ( ) ; 

CalcDay  =  CalcDayEdit->Text . Toint () ; 

CalcHour  =  CalcHourEdit^>Text .Toint () ; 

CalcMinute  =  CalcMinuteEdit->Text .Toint () ; 

CalcSecond  =  CalcSecondEdit->Text .ToDouble () ; 

/★★********************** **************** ***********/ 

/*  FIND  THE  CURRENT  ANGLE  OF  THETA  G  AT  THE  */ 

/*  TIME  OF  PROPAGATION  */ 

Z***************************************************/ 

ThetaGInRadians  =  0; 

FindThetaG ( ReferenceHour , 

ReferenceMinute , 

ReferenceSecond , 

Re  f Mod Ju 1 i anDa t e , 

CalcYear, 

CalcMonth, 

CalcDay, 

CalcHour, 

CalcMinute,  • 

CalcSecond, 

*ThetaPtr, 

*ErrorPtr) ; 

/**★**********★*******★*****★*************★*★*******/ 

/*  CONVERT  THE  PROPAGATION  TIME  TO  A  JULIAN  DATE  */ 

/*  THAT  CAN  BE  RECOGNIZED  BY  "EvaluateEphemeris ” .  */ 
/******★***********★*********************★*★********/ 
ConvertCalenderToJulian( CalcYear, 

CalcMonth, 

CalcDay, 

CalcHour, 

CalcMinute, 

CalcSecond, 

* JulianDatePtr , 

*ErrorPtr) ; 

/**************************★************************ z 

/*  EVALUATE  WHETHER  OR  NOT  THE  SATELLITE  IS  */ 

/*  CURRENTLY  WITHIN  VIEW  OF  THE  PLATFORM  */ 

Z*****************Tlr*********************************z 

EvaluateEphemeris (  *Sat, 

*ABLPlatform, 

ThetaGInRadians , 

JulianDate, 

TimeToNextRun , 

*SatInViewPtr , 

*OrbitInViewPtr , 

*SatXPtr, 

*SatYPtr, 

*SatZPtr, 

*SatXdotPtr , 
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*SatYdotPtr , 
*SatZdotPtr , 

*DeltaPtr, 
*InclinationPtr , 

*  Ri gh t As  c  ens i onP tr , 
*EccentricityPtr , 
♦MeanMotionPtr , 
*ArguinentOf  PerigeePtr , 
*MeanAnoinalyPtr , 
*DvectorPtr, 
♦TimeToRisePtr , 
*CriticalRadiusPtr, 
*SatRadiusPtr, 
*ErrorPtr) ; 


/***************************★★*★*************★******/ 

/*  OUTPUT  THE  TEST  PARAMETERS  WHICH  MONITOR  THE  */ 

/*  CALCULATIONS  IN  "EvaluateEphemeris ” .  */ 

/***************************************************/ 
XEdit-->Text  =  String  (SatX)  ; 

YEdit->Text  =  String (SatY) ; 

ZEdit->Text  =  String (SatZ) ; 

XdotEdit->Text  =  String ( Sa txdot ) ; 

YdotEdit->Text  =  String ( SatYdot ) ; 

ZdotEdit->Text  =  String (SatZdot) ; 

DeltaEdit->Text  =  String (Delta) ; 

InclinOutEdit->Text  =  String ( Inclination) ; 
RightAsOutEdit->Text  =  String (RightAscension) ; 
EccentricityOutEdit->Text  =  String (Eccentricity) ; 
MeanMotionOutEdit->Text  =  String(MeanMotion); 
ArgOfPerigeeOutEdit->Text  =  String(ArguinentOfPerigee); 
MeanAnomalyOutEdit->Text  =  String (MeanAnomaly) ; 
DvectorEdit“>Text  =  String (Dvec tor) ; 
TimeToRiseEdit->Text  =  String (TimeToRise) ; 
CriticalRadiusEdit“>Text  =  String (CriticalRadius) ; 
SatRadiusEdit-“>Text  =  String  (SatRadius)  ; 

ThetaGInDegrees  =  ThetaGInRadians  *  RADTODEGREES; 
ThetaGEdit“>Text  =  String (ThetaGInDegrees) ; 

if  (SatelliteInView  ==  1) 

SatInRangeEdit->Text  =  "YES"; 
else 

SatInRangeEdit->Text  =  "NO"; 

if  ( Orbit InView  ==  1) 

EphemerisInRangeEdit“>Text  =  "YES”; 
else 

EphemerisInRangeEdit->Text  =  "NO"; 


/******************************************yf 

/*  PRINT  OUT  ALL  ERROR  MESSAGES  */ 

/★***********★*********★************★★*****/ 
CreateDisplayText (ErrorList ,  Errors) ; 
if  (ErrorList .TotalErrors ( ) I =0) 

{ 

ErrorMemoBox->Lines->Clear ( ) ; 

ErrorMemoBoX“>Lines->Add( "THERE  ARE  ERRORS. . . " ) ; 
for  (i  =  0;  i<ErrorList .TotalErrors () ;  i++) 
ErrorMeinoBox->LineS“>Add (Errors  [i]  )  ; 

} 
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} 


else 

{  ErrorMemoBox->Lines->Clear ( ) ; 

ErrorMemoBox->LineS“>Add( "No  Errors 

} 


/****★*★*★***★★★★*★*********★*************★*★**★**★*/ 

/*  THIS  EVENT  HANDLER  PROCEDURE  HANDLES  THE  BUTTON*/ 

/*  THAT  CAN  LOAD  A  TEST  CASE  FROM  A  FILE  FOR  LATER*/ 

/*  EXECUTION  */ 

/★***★★******★**★************★****★★★**★*★★******★**/ 

void  _ fastcall  TForml : :FileButtonClick (TObject  *Sender) 

{ 

Errors  true  tur e  Er r orL i s  t ; 

Sat Structure  *SatArray  =  new  SatStructure; 

char  Errors  [MAXERRORS]  [MAXMESSAGELENGTH]  ; 

int  i  ; 

Errors true tur e  *ErrorPtr=&ErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 

char  FileName[MAXNAMELENGTH]  =  " 


/*★****★************★**★*★*★****★★***★*★★★*****★****/ 

/*  GET  NAME  OF  FILE  TO  READ  TEST  CASE  FROM  */ 

/★******★******★***********★**★***★***★*★★***★★★****/ 
strepy {FileName,FileEdit->Text.c_str ( ) ) ; 

/ *****★***★**********★*★******★*****★****★*********★/ 

/*  READ  ALL  SATELLITES  FROM  THE  FILE,  AND  USE  THE  */ 

/*  FIRST  SATELLITE  IN  THE  FILE  AS  THE  TEST  CASE  */ 
/************************************★**************/ 

ReadTLEFile (FileName, 

* Sat Array, 

*ErrorPtr) ; 

/*****★***********★★**★*****************************/ 

/*  NOTE  THE  Sat[0]  IS  THE  FIRST  SATELLITE  IN  THE  */ 

/*  FILE  */ 

/***************************************************/ 

SSCEdi t->Text  =  String  ( SatArray'->Sat  [  0  ]  .  GetSSCNumber  ( )  )  ; 

ClassEdit->Text  =  String (SatArray~>Sat [0] .GetSecurityClass ()) ; 
IntIDEdit->Text  =  String (SatArray->Sat [0] .GetInternationallD () ) ; 
EpochYearEdit->Text  =  String(SatArray“>Sat[0].GetEpochYear()); 
EpochDayEdit->Text  =  String (double ( SatArray“>Sat [ 0  3 . GetEpochDay ( ) ) ) ; 
RevSquaredEdit->Text  =  String (double (SatArray“>Sat [0] . GetRevSquared ())); 
RevCubedEdit->Text  =  String (double (SatArray->Sat [0] .GetRevCubed( ) ) ) ; 
BStarEdit->Text  =  String (double (SatArray->Sat [0 ] .GetBStarDrag ( ) ) ) ; 
EphemerisTypeEdit”>Text  =  String (SatArray->Sat [0] .GetEphemerisType ( ) ) ; 
ElSetEdit“>Text  =  String ( SatArray->Sat [ 0 ] . GetElementSetNumber ( ) ) ; 
InclinationEdit->Text  =  String (double (SatArray”>Sat [0] .Getinclination ( ) ) ) ; 
RightAscensionEdit->Text  =  String (double (SatArray- 

>Sat[0] .GetRightAscension ( ) ) ) ; 

EccentricityEdit->Text  =  String (double ( Sat Array- 

>Sat[0] .GetEccentricity ( ) ) ) ; 

ArgumentOf PerigeeEdit->Text  =  String (double ( SatAr ray- 

>Sat[03 . GetArgumentOf Perigee ( ) ) ) ; 

MeanAnomalyEdit“>Text  =  String (double (SatArray->Sat [0] . GetMeanAnomaly ( ) ) ) ; 
MeanMotionEdit->Text  =  String (double (SatAr ray- >Sat [0] . GetMeanMotion ( ) ) ) ; 
RevNumberEdit->Text  =  String ( SatArray->Sat [ 0 ] . GetRevAtEpoch ( ) ) ; 
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/***★******************★****★*★*********★*★**★******/ 
/*  DISPLAY  ALL  ERRORS  */ 

/********★**********************★*********★*****★***/ 
CreateDisplayText (ErrorList ,  Errors) ; 
if  (ErrorList .TotalErrors 0 !=0) 

{ 

ErrorMeinoBox->Lines->Clear  ( )  ; 

ErrorMemoBox~>Lines->Add ( "THERE  ARE  ERRORS. . . 
for  (i  =  0;  i<ErrorList .TotalErrors 0 ;  i++) 
ErrorMemoBox->Lines“>Add (Errors [i] ) ; 

} 

else 

{  ErrorMemoBox->Lines“>Clear ( ) ; 

ErrorMemoBox“>Lines->Add( "No  Errors. . . ") ; 

} 


} 
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E.2  FindDisplacementAngleForm.cpp 


/*  MODULE  NAME:  FindDisplacementAngleForm.cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  January  10, 1998  */ 
/*  */ 
/*  PURPOSE:  This  is  the  Form  which  can  be  used  to  test  the  modules  */ 
/*  created  in  FindDisplacementAngle.cpp.  This  form  */ 
/*  takes  all  the  inputs  to  evaluate  a  single  satellite  */ 
/*  ephemeris  against  a  single  airborne  platform,  and  */ 
/*  determines  the  separation  angle  of  the  satellite  pos  */ 
/*  vector  with  respect  to  the  ABL  laser  beam.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  Builder3  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/******★*★★★*★**★★*****★********************★***************★*******★***★****/ 

/**********★★********★******★*****/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/*******★***★*★★******************/ 

#include  <vcl.h> 

#pragma  hdrstop 

#pragma  package (smart_init) 

#pragma  resource  ”*.dfm" 

/********★******★*************★**★/ 

/*  USER-BUILT  LIBRARIES  */ 

/*************★****************★**/ 

#include  "TimeModules .h” 

#include  "LaserConstants .h” 

#include  "ErrorStructure.h" 

# include  ” FindDisplacementAngleForm . h " 

#include  "TargetSatellite .h" 

# include  " Targe tLaser.h” 

# include  "Aircraft. h” 

# include  "Satellite.h” 

#include  "EvaluateEphemerisModules .h” 

#include  "FindDisplacementAngleModules .h" 

# include  "TLEInput.h" 

/*************★************★*★****/ 

/*  C  SPECIFIC  LIBRARIES  */ 

/***********★***********★★★*******/ 

#include  <stdio.h> 

#include  <stdlib.h> 
ttinclude  <string.h> 

# include  <iostream.h> 

#include  <conio.h> 

/*********************★*********/ 

/*  CREATE  THE  FORM  */ 

/*********★****'******★**★*******/ 

TForml  *Forml ; 

// - 

_ fastcall  TForml :: TForml (TComponent*  Owner) 

:  TForm( Owner) 

{ 

} 

/*********★********★*******★******************** ^ 

/*  THIS  EVENT  HANDLER  HANDLES  THE  EXECUTION  */ 

/*  AND  IS  ACTIVATED  BY  CLICKING  ON  THE  */ 


/*  "FIND  SEPARATION  ANGLES"  BUTTON.  */ 

/******★****************************************/ 

void _ fastcall  TForml : :EvaluateButtonClick (TObject  *Sender) 

{ 

ErrorStructure  ErrorList; 

ErrorStructure  *ErrorPtr=5cErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 
Satellite*  Sat; 

Sat  =  new  Satellite; 

Aircraft*  ABLPlatform; 

ABLPlatform  =  new  Aircraft; 
char  Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 

char  buff  [MAXNAMELENGTH]  ; 

double  ReferenceHour;  /**********★*************★***/ 

double  ReferenceMinute;  /*  THE  REFERENT  ANGLE  */ 

double  ReferenceSecond;  /*  OF  THETA  G  IS  KNOWN  AS  */ 

double  RefModJulianDate;  /*  THE  REFERENCE  ANGLE  IN  */ 

double  ThetaGInRadians ;  /**★************★*********★*★/ 

double  *ThetaPtr  =  &ThetaGInRadians ; 
double  ErrorAngleInRadians ; 

double  *ErrorAngleInRadiansPtr  =  &ErrorAngleInRadians ; 

double  LaserAzimuthInDegrees; 

double  LaserAzimuthDot; 

double  LaserAzimuthDotDot ; 

double  LaserElevationInDegrees ; 

double  LaserElevationDot; 

double  LaserElevationDotDot; 

double  SatPositionErrorInMeters; 

double  Platf ormPositionErrorInMeters ; 

double  MissilePositionErrorInMeters ; 

double  RangeToMissi lelnKi lometers ; 

double  OtherErrorAngleInDeg; 

int  CalcYear; 

int  CalcMonth; 

int  CalcDay; 

int  CalcHour; 

int  CalcMinute; 

double  CalcSecond; 

int  i  ; 

double  JulianDate; 

double  *JulianDatePtr  =  & JulianDate; 
double  RangeToSatlnKilometers ; 

double  *RangeToSatInKilometersPtr  =  &RangeToSatInKi lometers; 
double  PlatformSatRENRhoR; 

double  *PlatformSatRENRhoRPtr  =  &Platf ormSatRENRhoR; 
double  PlatformSatRENRhoE; 

double  *PlatformSatRENRhoEPtr  =  &PlatformSatRENRhoE; 
double  PlatformSatRENRhoN; 

double  *PlatformSatRENRhoNPtr  =  &PlatformSatRENRhoN; 
double  PlatformSatRENRhoRDot; 

double  *PlatformSatRENRhoRDotPtr  =  &PlatformSatRENRhoRDot ; 
double  PlatformSatRENRhoEDot ; 

double  *PlatfoirmSatRENRhoEDotPtr  =  &PlatformSatRENRhoEDot ; 
double  PlatformSatRENRhoNDot ; 

double  *PlatformSatRENRhoNDotPtr  =  ScPlatformSatRENRhoNDot ; 
double  PlatformSatRENRhoRDotDot; 

double  *PlatformSatRENRhoRDotDotPtr  =  &PlatformSatRENRhoRDotDot ; 
double  PlatformSatRENRhoEDotDot; 

double  *PlatformSatRENRhoEDotDotPtr  =  ScPlatformSatRENRhoEDotDot ; 
double  PlatformSatRENRhoNDotDot; 

double  *PlatformSatRENRhoNDotDotPtr  =  ScPlatformSatRENRhoNDotDot ; 
double  LaserRENRhoR; 

double  *LaserRENRhoRPtr  =  &LaserRENRhoR; 
double  LaserRENRhoE; 


double  *LaserRENRhoEPtr  =  &LaserRENRhoE; 
double  LaserRENRhoN; 

double  *LaserRENRhoNPtr  =  &LaserRENRhoN; 
double  LaserRENRhoRDot ; 

double  *LaserRENRhoRDotPtr  =  ScLaserRENRhoRDot  ; 
double  LaserRENRhoEDot; 

double  *LaserRENRhoEDotPtr  =  &LaserRENRhoEDot ; 
double  LaserRENRhoNDot; 

double  *LaserRENRhoNDotPtr  =  &LaserRENRhoNDot ; 
doubl e  Las erRENRhoRDo tDo t ; 

double  *LaserRENRhoRDotDotPtr  =  &LaserRENRhoRDotDot ; 
doubl e  Las  erRENRhoEDo  tDo  t ; 

double  *LaserRENRhoEDotDotPtr  =  &LaserRENRhoEDotDot ; 
double  LaserRENRhoNDotDot ; 

double  *LaserRENRhoNDotDotPtr  =  &LaserRENRhoNDotDot ; 
double  SeparationAngle; 

double  *SeparationAnglePtr  =  ScSeparationAngle; 
double  SepAngleDot; 

double  *SepAngleDotPtr  =  &SepAngleDot ; 
double  SepAngleDotDot; 

double  *SepAngleDotDotPtr  =  & SepAngleDotDot; 


/***★*****★***★*★******************★*★*****★★*/ 

/*  GET  SATELLITE  EPHEMERIS  INFORMATION  */ 

/*******★*******★**************★**************/ 

Sat->SetSSCNuinber  ( SSCEdit“>Text .  Toint  ()); 
strcpy  (buff  ,ClassEdit~’>Text,c_str  ( )  )  ; 

Sat->SetSecurityClass (buff) ; 

strcpy (buff , IntIDEdit~>Text.c_str ( ) ) ; 

Sat->SetInternationalID(buf f ) ; 

Sat->SetEpochYear (EpochYearEdit->Text . Toint ()); 

Sat-'>SetEpochDay  (EpochDayEdit->Text  .ToDouble  ()); 
Sat“>SetRevSquared(RevSquaredEdit->Text.ToDouble ( ) ) ; 
Sat->SetRevCubed(RevCubedEdit~>Text .ToDouble ()); 

Sat->SetBStarDrag (BStarEdit->Text .ToDouble ( ) ) ; 

Sat->SetEphemerisType ( EphemerisTypeEdit->Text. Toint 0 ) ; 
Sat->SetEleinentSetNiainber  (ElSetEdit->Text.  Toint  ( )  )  ; 
Sat->SetInclination(InclinationEdit“>Text .ToDouble ( ) ) ; 
Sat~>SetRightAscension (RightAscensionEdit->Text .ToDouble ( ) ) ; 
Sat“>SetEccentricity(EccentricityEdit->Text .ToDouble ( ) ) ; 

Sat “>SetArgumentOf Perigee (ArgumentOf PerigeeEdit“>Text . ToDouble ()); 
Sat->SetMeanAnomaly(MeanAnomalyEdit->Text .ToDouble ( ) ) ; 
Sat->SetMeanMotion (MeanMotionEdit->Text . ToDouble ()); 

Sat->SetRevAtEpoch (RevNuinberEdit->Text . Toint ( ) ) ; 

/********************★*****★***★**************/ 

/*  GET  AIRCRAFT  POSITION  INFORMATION  */ 

/*****************★****★*★********★*****★★****/ 
ABLPlatform->SetAltitude (AltitudeEdit->Text .ToDouble ( ) ) ; 
strcpy,(buf  f ,  HeinisphereEdit->Text .  c_str  ( )  )  ; 
if  ( ( ! (strcmp (buf f ,  "N” ) ) )  ||  ( ! (strcmp (buf f ,  ”n" ) ) ) ) 

ABLPlatf onn->SetLati tudeHemisphere ( 0 ) ; 
else  if  ((! (strcmp (buf f,  "S”)))  |{  (! (strcmp (buf f,  "s”)))) 

ABLPlatf orm-’>SetLatitudeHemisphere  ( 1 )  ; 

else 

{  ErrorList .AddError ( "EvaluateEphemerisForm" , 

"Lat  Hemisphere  must  be  north(N)  or  south(S)", 
1)  ; 

} 

ABLPlatf orm->SetLatitudeDegree (LatitudeDegreeEdit->Text . ToDouble ( ) ) ; 
ABLPlatf orm->SetLatitudeMinute (LatitudeMinuteEdit->Text . ToDouble ()); 
ABLPlatform->SetLatitudeSecond(LatitudeSecondEdit->Text .ToDouble ( ) ) ; 
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ABLPlatf orm->SetLongitudeDegree (LongitudeDegreeEdit->Text . ToDouble ( ) ) 
ABLPlatform->SetLongitudeMinute (LongitudeMinuteEdit->Text . ToDouble ( ) ) 
ABLPlatfonn->SetLongitudeSecond (Long! tudeSecondEdit->Text .ToDouble ( ) ) 
ABLPlatf orm->SetAltitude (AltitudeEdit->Text. ToDouble ( ) ) ; 
ABLPlatfonn->SetVelocityX(VelocityXEdit“>Text .ToDouble ( ) ) ; 

ABLPlatf orm->SetVelocityY (VelocityYEdit”>Text .ToDouble {)); 
ABLPlatforTn->SetVelocityZ {VelocityZEdit->Text .ToDouble { ) ) ; 

/*******★********************★****★*****★*****/ 

/*  GET  GREENWICH  MERIDIAN  REFERENCE  */ 

/**********★★**★★*★*******************★**★****/ 

Ref erenceHour  =  Ref erenceHourEdit->Text . ToDouble ( ) ; 

ReferenceMinute  =  Ref erenceMinuteEdit~>Text .ToDouble () ; 
ReferenceSecond  =  Ref erenceSecondEdit->Text .ToDouble () ; 
RefModJulianDate  =  RefModJulianDateEdit~>Text .ToDouble( ) ; 

/**★**********★***************★*★**********•*★*/ 

/*  GET  CURRENT  TIME  */ 

/**★★★*****************★******★****★******★**★/ 

CalcYear  =  CalcYearEdit->Text .Toint { ) ; 

CalcMonth  =  CalcMonthEdit->Text .Toint () ; 

CalcDay  =  CalcDayEdit->Text .Toint () ; 

CalcHour  =  CalcHourEdit~>Text .Toint () ; 

CalcMinute  =  CalcMinuteEdit->Text .Toint ( ) ; 

CalcSecond  =  CalcSecondEdit->Text .ToDouble () ; 

/*★**★****★★************★***************★★****/ 

/*  GET  OTHER  INPUTS  */ 

/***************************★***********★★****/ 
SatPositionErrorInMeters  =  SatPosErrorEdit‘->Text .ToDouble () ; 
PlatformPositionErrorInMeters  =  PlatformPosErrorEdit->Text .ToDouble ( ) ; 
MissilePositionErrorInMeters  =  MissilePosErrorEdit->Text .ToDouble ( ) ; 
RangeToMissileInKilometers  =  MissileRangeEdit->Text .ToDouble ( ) ; 
OtherErrorAngleInDeg  =  OtherErrorsEdit->Text . ToDouble ( ) ; 
LaserAzimuthInDegrees  =  LaserAzimuthEdit~>Text .ToDouble () ; 
LaserElevationInDegrees  =  LaserElevationEdit->Text.ToDouble(); 
LaserAzimuthDot  =  LaserAzimuthDotEdit->Text .ToDouble( ) ; 
LaserElevationDot  =  LaserElevationDotEdit->Text .ToDouble () ; 
LaserAzimuthDotDot  =  LaserAzimuthDotDotEdit->Text .ToDouble {) ; 
LaserElevationDotDot  =  LaserElevationDotDotEdit->Text . ToDouble ( ) ; 

/****★★************★****★***************************/ 

/*  FIND  THE  CURRENT  ANGLE  OF  THETA  G  AT  THE  */ 

/*  TIME  OF  PROPAGATION  */ 

/*****************★****★****************************/ 

ThetaGInRadians  =  0; 

FindThetaG ( Ref erenceHour , 

ReferenceMinute , 

ReferenceSecond, 

RefModJulianDate , 

CalcYear, 

CalcMonth, 

CalcDay, 

CalcHour, 

CalcMinute, 

CalcSecond, 

*ThetaPtr, 

*ErrorPtr) ; 


/**★**★***★*★★*****★***********★★*****★************★/ 
/*  CONVERT  THE  PROPAGATION  TIME  TO  A  JULIAN  DATE  */ 
/*  THAT  CAN  BE  RECOGNIZED  BY  "TargetSatellite" .  */ 

/***************************************************/ 
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JulianDate  =  0.0; 

ConvertCalenderToJulian (CalcYear , 

CalcMonth, 

CalcDay, 

CalcHour, 

CalcMinute, 

CalcSecond, 

*JulianDatePtr, 

*ErrorPtr) ; 

/*★**********★******★*★*********************★******★/ 
/*  THIS  IS  THE  MAIN  MODULE  BEING  TESTED  HERE.  */ 

/*  IT  FINDS  THE  SEPARATION  ANGLE  AND  THE  RATE  */ 

/*  OF  CHANGE  AND  ACCEL.  OF  THE  ANGLE  BETWEEN  TWO  */ 

/*  VECTORS.  */ 

/*********★*★****************************★**★***★***/ 
FindDisplacementAngles ( *ABLPlatf orm, 

*Sat, 

*ThetaPtr, 

JulianDate, 

LaserAzimuthInDegrees , 

Las  er Az imu thDo  t , 

Las  er Az imu thDo  tDo  t , 
LaserElevationInDegrees , 
LaserElevationDot, 
LaserElevationDotDot , 
SatPositionErrorInMeters , 

Platf ormPositionErrorInMeters , 

MissilePositionErrorInMeters, 

RangeToMissileInKilometers , 

OtherErrorAngleInDeg , 

*PlatformSatRENRhoRPtr, 

*PlatformSatRENRhoEPtr, 

*PlatformSatRENRhoNPtr, 

*PlatformSatRENRhoRDotPtr, 

*PlatformSatRENRhoEDotPtr, 

*PlatformSatRENRhoNDotPtr, 

*PlatformSatRENRhoRDotDotPtr, 

* Plat f ormSatRENRhoEDo tDo tPtr, 
*PlatformSatRENRhoNDotDotPtr, 
*LaserRENRhoRPtr , 
*LaserRENRhoEPtr , 
*LaserRENRhoNPtr , 
*LaserRENRhoRDotPtr , 
*LaserRENRhoEDotPtr , 
*LaserRENRhoNDotPtr , 
*LaserRENRhoRDotDotPtr , 
*LaserRENRhoEDotDotPtr , 
*LaserRENRhoNDotDotPtr , 
*RangeToSatInKilometersPtr , 
*ErrorAngleInRadiansPtr , 
*SeparationAnglePtr, 
*SepAngleDotPtr, 
*SepAngleDotDotPtr, 

*ErrorPtr) ; 


/**********************★★***************************/ 

/*  OUTPUT  THE  TEST  PARAMETERS  WHICH  MONITOR  THE  */ 

/*  CALCULATIONS  IN  "FindDisplacementAngle " .  */ 

/*******★********★********★*★******★*★*******★**★***/ 

RangeToSatEdit->Text  =  String (RangeToSatInKilometers) ; 
ErrorAngleEdit->Text  =  String (Err or Angle InRadians  *  RADTODEGREES) ; 
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SatREdit“>Text  =  String (Plat formSatRENRhoR) ; 

SatEEdit“>Text  =  String (Plat formSatRENRhoE) ; 

SatNEdit->Text  =  String (Plat formSatRENRhoN) ; 

SatRDotEdit”>Text  =  String (Plat f ormSatRENRhoRDot ) ; 

SatEDotEdit->Text  =  String (Plat f ormSatRENRhoEDot ) ; 

SatNDotEdit“>Text  =  String (Plat f ormSatRENRhoNDot ) ; 

SatRDotDotEdit“>Text  =  String (PlatformSatRENRhoRDotDot  * 

1000.0) ;/*CONVERT*/ 

SatEDotDotEdit“>Text  =  String (Plat formSatRENRhoEDotDot  *  1000.0) ;/*KM  TO 

M*/ 

SatNDotDotEdit->Text  =  String (Plat formSatRENRhoNDotDot  *  1000.0);/* 

*/ 

LaserREdit-'>Text  =  String  (Las erRENRhoR)  ; 

LaserEEdit*->Text  =  String  (Las erRENRhoE)  ; 

LaserNEdit->Text  =  String (LaserRENRhoN) ; 

LaserRDotEdit“>Text  =  String (LaserRENRhoRDot) ; 

LaserEDotEdit“>Text  =  String (LaserRENRhoEDot) ; 

LaserNDotEdit->Text  =  String (LaserRENRhoNDot) ; 

LaserRDotDotEdit->Text  =  String (Las erRENRhoRDotDot ) ; 

LaserEDotDotEdit~>Text  =  String (Las erRENRhoEDotDot ) ; 

LaserNDotDotEdit->Text  =  String (LaserRENRhoNDot Dot) ; 

SepAngleEdit->Text  =  String (SeparationAngle  *  RADTODEGREES) ; 

SepDotEdit”>Text  =  String ( SepAngleDot  *  RADTODEGREES) ; 

SepDotDotEdit->Text  =  String ( SepAngleDotDot  *RADTODEGREES) ; 

/****★*****★★★*★***********★********★******/ 

/*  PRINT  OUT  ALL  ERROR  MESSAGES  */ 

/********★******************★**************/ 

CreateDisplayText (ErrorList,  Errors) ; 
if  (ErrorList.TotalErrors ( ) !=0) 

{ 

ErrorMemoBoX“>Lines->Clear(); 

ErrorMemoBoX“>Lines->Add( "THERE  ARE  ERRORS..."); 
for  (i  =  0;  i<ErrorList .TotalErrors ( ) ;  i++) 

ErrorMemoBox->Lines->Add (Errors [i] ) ; 

} 

else 

{  ErrorMemoBox->LineS“'>Clear  ( )  ; 

ErrorMemoBox->Lines-->Add  ( "No  Errors  ..."); 

} 


} 

/************************************************/ 

/*  THIS  EVENT  HANDLER  READS  THE  FIRST  SATELLITE*/ 

/*  FROM  A  FILE  OF  TWO-LINE  ELEMENT  SETS  */ 

/*★*★★*★*************★*★■*■*********************★*★/ 

void  _ fastcall  TFontil :  :FileButtonClick(TObject  *Sender) 

{ 

ErrorStructure  ErrorList; 

Sat  Structure  *  Sat  Array  =  new  Sat  Structured- 

char  Errors  [MAXERRORS]  [MAXMESSAGELENGTH]  ; 
int  i; 

ErrorStructure  *ErrorPtr=&ErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 
char  FileNamelMAXNAMELENGTH]  =  "  "; 


/*  GET  NAME  OF  FILE  TO  READ  TEST  CASE  FROM  */ 


348 


strcpy (FileName, FileEdit->Text . c_str { ) ) ; 

/*★****************★**★★*★****★★**★★*★**★★*★********/ 

/*  READ  ALL  SATELLITES  FROM  THE  FILE,  AND  USE  THE  */ 

/*  FIRST  SATELLITE  IN  THE  FILE  AS  THE  TEST  CASE  */ 
/*★**★*★*******★********************★******★*★*★★***/ 

ReadTLEFile (FileName, 

* Sat Array, 

*ErrorPtr) ; 

/************★*****★★*★***★★*********************★**/ 

/*  NOTE  THE  Sat[0]  IS  THE  FIRST  SATELLITE  IN  THE  */ 

/*  FILE  */ 

/*****************★***★*****************************/ 

SSCEdit->Text  =  String (SatArray->Sat [ 0] . GetSSCNumber ()) ; 

ClassEdit->Text  =  String (SatArray->Sat [0] .GetSecurityClass ( ) ) ; 
IntIDEdit->Text  =  String (SatArray->Sat [0 ] .GetInternationalID( ) ) ; 
EpochYearEdit->Text  =  String(SatArray->Sat[0].GetEpochYear()); 
EpochDayEdit->Text  =  String (double (SatArray->Sat [0] .GetEpochDay ( ) ) ) ; 
RevSquaredEdit->Text  =  String (double (SatArray->Sat [0] . GetRevSquared ( ) ) ) ; 
RevCubedEdit-->Text  =  String (double (Sat Array “>Sat [ 0] .GetRevCubed( ) ) ) ; 
BStarEdit->Text  =  String (double (SatArray->Sat [ 0] .GetBStarDragO)); 
EphemerisTypeEdit'’>Text  =  String (SatArray->Sat [0] .GetEphemerisType ( ) ) ; 
ElSetEdit->Text  =  String (SatArray“>Sat [0 ] .GetElementSetNumber ( ) ) ; 
InclinationEdit'->Text  =  String (double (SatArray->Sat [0] .Getinclination ( ) ) ) ; 
RightAscensionEdit->Text  =  String (double (Sat Array 

>Sat[0] .GetRightAscension ( ) ) ) ; 

EccentricityEdit->Text  =  String (double (Sat Array 

>Sat[0]  .GetEccentricityO  )  )  ; 

ArgumentOfPerigeeEdit->Text  =  String (double (SatArray 

>Sat[0] .GetArgumentOfPerigee ( ) ) ) ; 

MeanAnomalyEdit“>Text  =  String (double (SatArray“>Sat [0] . GetMeanAnomaly ( ) ) ) ; 
MeanMotionEdit“>Text  =  String (double (SatArray->Sat [0] .GetMeanMotion ( ) ) ) ; 
RevNiunberEdi t->Text  =  String ( SatArray- >Sat [ 0 ] . GetRevAtEpoch ( ) ) ; 


/*****★***************★*★******★**********★*********/ 

/*  DISPLAY  ALL  ERRORS  */ 

/***************************************************./ 
CreateDisplayText (ErrorList,  Errors) ; 
if  (ErrorList .TotalErrors 0 !=0) 

{ 

ErrorMemoBox->Lines->Clear ( ) ; 

ErrorMemoBox->Lines->Add ( "THERE  ARE  ERRORS. . . " ) ; 
for  (i  =  0;  i<ErrorList .TotalErrors () ;  i++) 
ErrorMeinoBox->Lines->Add  (Errors  [i]  )  ; 

} 

else 

{  ErrorMemoBox->Lines->Clear ( ) ; 

ErrorMemoBox->Lines->Add ( "No  Errors ..."); 

} 


} 
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E.3  MainProcessorForm.cpp 


/*  MODULE  NAME:  MainProcessorForm.cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  January  10, 1998  */ 
/*  */ 
/*  PURPOSE:  This  is  the  Form  which  can  be  used  to  test  the  ABLPA  */ 
/*  Main  Processor.  This  is  the  main  Graphical  User  */ 
/*  Interface  (GUI)  for  the  Main  Processor  software.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  BuilderS  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/****★*******★****★*************************★****+***★+★*****★*★*★****★******/ 

/*******************★*★***★**★*★**/ 

/*  C++BUILDER- SPECIFIC  LIBRARIES  */ 

/****★***********★*********★*★★★★*/ 

# include  <vcl.h> 

#pragma  hdrstop 

#pr agma  package ( smar t_ini t ) 

#pragma  resource  ’'*.dfm‘' 

/*********★*****★*★*★**★**********/ 

/*  USER-BUILT  LIBRARIES  */ 

/*********★***★*********★*********/ 
tihclude  "TimeModules .h" 

#include  '' LaserConstants  .  h " 

#include  "ErrorStructure.h” 

#include  "TargetSatellite .h" 
ttinclude  "TargetLaser .h" 

# include  "Aircraf t .h" 

#include  "Satellite .h" 

#include  "EvaluateEphemerisModules .h" 

# include  "FindDisplacementAngleModules .h" 

#include  "MainProcessorForm.h" 
tinclude  "PAMainprocessor .h" 

#include  "ProcessSatellite .h" 

# include  "TLEInput.h" 

/**★***★*★*******★*★**************/ 

/*  C  SPECIFIC  LIBRARIES  */ 

/★**★*********★*******************/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

/***************★***************/ 

/*  CREATE  THE  FORM  */ 

/*********★****★**★*****★*******/ 

TForml  *Forml ; 

// - 

_ fastcall  TForml :: TForml (TComponent*  Owner) 

:  TForm( Owner) 

{ 

} 

/*********★*************************★*★**************/ 

/*  THIS  EVENT-HANDLER  EXECUTES  THE  MAIN  PROCESSOR  */ 
/*****★*******★★**********************************★**/ 
void  _ fastcall  TForml :: ProcessTLEFileButtonClick(TObject  *Sender) 
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{ 


ErrorStructure  ErrorList; 

Error Structure  *ErrorPtr=&ErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 
Aircraft*  ABLPlatform; 

ABLPlatform  =  new  Aircraft; 

SatStructure  *SatArray  =  new  SatStructure; 

char  Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 

char  bu  f  f [ MAXNAMELENGTH ] ; 

double  ReferenceHour ; 

double  ReferenceMinute; 

double  ReferenceSecond; 

double  RefModJulianDate; 

int  CalcYear; 

int  CalcMonth; 

int  CalcDay; 

int  CalcHour; 

int  CalcMinute; 

double  CalcSecond; 

int  i  ; 

int  InFileLength; 

int  *InFileLengthPtr  =  ScInFileLength; 

int  OutFileLength; 

int  *OutFileLengthPtr  =  &OutFileLength; 

int  ClosestApproachLength; 

int  *ClosestApproachLengthPtr  =  ScClosestApproachLength; 

char  InFileName [MAXNAMELENGTH]  =  " 

char  OutFileName [MAXNAMELENGTH]  =  "  " ; 

char  Cl os estAppro a chFileName [MAXNAMELENGTH]  =  " 

char  buffer [MAXMESSAGELENGTH]  =  " 

double  ThetaGInDegrees ; 

double  *ThetaPtr  =  &ThetaGInDegrees ; 

double  LaserAzimuthInDegrees ; 

double  LaserAzimuthDot ; 

double  LaserAzimuthDotDot; 

double  LaserElevationInDegrees ; 

double  LaserElevationDot; 

double  LaserElevationDotDot; 

double  SatPositionErrorInMeters; 

double  Platf ormPositionErrorInMeters ; 

double  MissilePositionErrorInMeters ; 

double  RangeToMissileInKilometers; 

double  OtherErrorAngleInDeg; 

double  LazeDuration; 

double  SecondsFromVertex; 

double  Interpolationincrement; 

/********i»f************************************/ 

/*  GET  THE  NAMES  OF  THE  INPUT  AND  OUTPUT  */ 

/*  FILES.  */ 

/****★**★******************************★******/ 
strcpy (InFileName, InFileEdit->Text .c_str ( ) ) ; 
strcpy (OutFileName, OutFileEdit“>Text.c_str() )  ; 

strcpy (ClosestApproachFileName, CloseApproachFileEdit->Text . c_str ( ) ) 

/**★**************************★*★*★*★*********/ 

/*  GET  AIRCRAFT  POSITION  INFORMATION  */ 

/******★*********************★★*★*********★***/ 

ABLPlatf orm->SetAltitude (AltitudeEdit“>Text . ToDouble ()); 
strcpy (buff ,HemisphereEdit->Text . c_str ( ) ) ; 
if  (  ( I  (strcmp  (buf  f ,  "N”)))  ||  ( !  (strcmp  (buf  f ,  ’’n")))) 
ABLPlatform->SetLatitudeHemi sphere (0) ; 
else  if  (( I (strcmp (buf f,  "S")))  ||  (! (strcmp (buf f,  "s”)))) 


351 


ABLPlatform~>SetLatitudeHemi sphere ( 1 ) ; 

else 

{  ErrorList .AddError ( "PAProcessorForm" , 

"Lat  Hemisphere  must  be  north(N)  or  south(S)“, 
1); 

} 

ABLP lat form- >Se that itudeDegree (LatitudeDegreeEdit->Text . ToDouble ( ) ) ; 
ABLPlatf orm->SetLatitudeMinute (LatitudeMinuteEdit->Text . ToDouble ()); 
ABLPlatform->SetLatitudeSecond (LatitudeSecondEdit->Text .ToDouble ( ) ) ; 
ABLP lat form- >SetLongitudeDegree (LongitudeDegreeEdit->Text .ToDouble ()); 
ABLPlatf orm->SetLongitudeMinute (LongitudeMinuteEdit->Text . ToDouble ( ) ) ; 
ABLPlatf orm->SetLongitudeSecond (LongitudeSecondEdit->Text . ToDouble ( ) ) ; 
ABLPlatf orm->SetAltitude (AltitudeEdit->Text .ToDouble ( ) ) ; 

ABLPlatf orm->SetVelocityX (VelocityXEdit->Text . ToDouble ( ) ) ; 
ABLPlatform->SetVelocityY(VelocityYEdit->Text .ToDouble ( ) ) ; 

ABLPlatf 02rm->SetVelocityZ (VelocityZEdit->Text. ToDouble ( ) ) ; 

/★********************************************/ 

/*  GET  GREENWICH  MERIDIAN  REFERENCE  */ 

/**★*******★*★★★**************★*******★**★**★*/ 

Ref erenceHour  =  Ref erenceHourEdit->Text . ToDouble ( ) ; 

ReferenceMinute  =  Ref erenceMinuteEdit->Text .ToDouble () ; 

ReferenceSecond  =  Ref erenceSecondEdit->Text . ToDouble () ; 
RefModJulianDate  =  Re fModJul ianDateEdi t ->Text . ToDouble () ; 

/************★****************★*********★*****/ 

/*  GET  CURRENT  TIME  */ 

/*****************★**★************************/ 

CalcYear  =  CalcYearEdit->Text .Toint ( ) ; 

CalcMonth  =  CalcMonthEdit->Text .Toint () ; 

CalcDay  :=  CalcDayEdit->Text .  Toint  ()  ; 

CalcHour  =  CalcHourEdit->Text .Toint () ; 

CalcMinute  =  CalcMinuteEdit->Text .Toint ( ) ; 

CalcSecond  =  CalcSecondEdit->Text .ToDouble () ; 

LazeDuration  =  LazeDurationEdit->Text . ToDouble ( ) ; 

/*****★*****************★***★*★*************★**★*/ 

/*  GET  OTHER  INPUTS  INCLUDING  LASER  POSITION  */ 

/*  AND  ERROR  ANGLE  INFORMATION  */ 

/*****************★****************★****★**★*****/ 

SatPositionErrorInMeters  =  SatPosErrorEdit->Text .ToDouble () ; 

Platf ormPositionErrorInMeters  =  Plat formPosErrorEdit->Text .ToDouble ( ) ; 
MissilePositionErrorInMeters  =  MissilePosErrorEdit->Text .ToDouble ( ) ; 
RangeToMissileInKilometers  =  Mi ssileRangeEdit->Text .ToDouble { ) ; 
OtherErrorAngleInDeg  =  OtherErrorsEdit->Text . ToDouble ( ) ; 
LaserAzimuthInDegrees  =  LaserAzimuthEdit->Text .ToDouble () ; 
LaserElevationInDegrees  =  LaserElevationEdit->Text . ToDouble ( ) ; 
LaserAzimuthDot  =  Las erAzimuthDotEdit->Text .ToDouble () ; 
LaserElevationDot  =  LaserElevationDotEdit->Text.ToDouble(); 
LaserAzimuthDotDot  =  LaserAzimuthDotDotEdit->Text .ToDouble () ; 
LaserElevationDotDot  =  LaserElevationDotDotEdit->Text . ToDouble ( ) ; 
SecondsFromVertex  =  VertexIntervalEdit->Text . ToDouble ( ) ; 
Interpolationincrement  =  InterpolationIncrementEdit->Text .ToDouble ( ) ; 

/★★**★★*******************★*★*****************/ 

/*  RUN  THE  PROCESSOR  ON  THE  INPUT  FILE  */ 

/********★★**★★************************★***★★*/ 

PAMainProcessor (InFileName, 

OutFileName, 

Closes  t Appro  achF i 1 eName , 

* InFi leLengthPtr , 

*OutFileLengthPtr, 

*Closes tApproachLengthPtr , 
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*ABLPlatform, 

Ref erenceHour , 

Ref erenceMinute , 

Ref erenceSecond, 
RefModJulianDate , 

CalcYear , 

CalcMonth, 

CalcDay, 

CalcHour , 

CalcMinute, 

CalcSecond, 

LazeDuratipn , 
LaserAzimuthInDegrees , 

Las  er Az imu thDo  t , 
LaserAzimuthDotDot , 
LaserElevationInDegrees ; 
LaserElevationDot , 
LaserElevationDotDot , 
SatPositionErrorInMeters , 

Platf ormPositionErrorlnMeters , 
MissilePositionErrorInMeters , 
RangeToMissileInKilometers , 
OtherErrorAngleInDeg , 
SecondsFromVertex , 
Interpolationlncrement , 
*ThetaPtr, 

*ErrorPtr) ; 

/******★************★★★★*★***★*******★*★*********/ 
/*  DISPLAY  THE  NUMBER  OF  SATELLITE  EPHEMERIDES  */ 
/*  READ  IN,  AND  HOW  MANY  SATELLITES  WERE  */ 

/*  INTERSECTED.  */ 

/*★****★★*************************★******★*****★*/ 

SatEvalEdit->Text  =  String (InFileLength) ; 

IntersectEdit->Text  =  String (OutFileLength) ; 

ThetaGEdit->Text  =  String (ThetaGInDegrees) ; 

/*********************************************/ 

/*  THE  "OutFile”  CONTAINS  ALL  OF  THE  */ 

/*  SATELLITE  TLEs  OF  THE  SATELLITES  THAT  ARE*/ 

/*  INTERSECTED.  NOW  READ  THE  OUTFILE  TO  GET*/ 

/*  ALL  THE  SATELLITES  INTERSECTED.  */ 

/*******★★★★*★******************★**★**********/ 

ReadTLEFile (OutFileName, 

* Sat Array, 

*ErrorPtr) ; 

/*********************************************/ 

/*  SCROLL  THROUGH  ALL  THE  SATS  INTERSECTED  */ 

/*  AND  SHOW  THEM  ON  THE  SCREEN  IN  A  MEMO  BOX*/ 
/*********************************************/ 

IntersectMemoBox->Lines->Clear ( ) ; 

if  (SatArray”>NuinSats  ==  0) 

{  sprintf (buffer, "No  Satellites  Intersected"); 
IntersectMeinoBox->Lines-'>Add (buffer)  ; 

} 

else 

{  for  (i=0;  i<SatArray“>NumSats ;  i++) 

{ 

sprintf (buffer, "SSC:  %d", 

SatArray“>Sat [ i ] . GetSSCNumber ( ) ) 
Inter sec tMemoBox->Lines->Add (buffer) ; 

} 
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} 


/*********************************************/ 

/*  THE  “ClosestApproach"  CONTAINS  ALL  OF  THE*/ 

/*  SATELLITE  TLEs  OF  THE  SATELLITES  THAT  ARE*/ 

/*  CLOSE  TO  THE  LASER.  NOW  READ  THE  OUTFILE*/ 

/*  TO  GET  ALL  THE  CLOSE  SATELLITES.  */ 

/*********************************************/ 
ReadTLEFi le ( Closes tApproachFi leName , 

* Sat Array, 

*ErrorPtr) ; 

/****★***********★****************★******★**★*/ 

/*  SCROLL  THROUGH  ALL  THE  CLOSE  SATS  AND  */ 

/*  SHOW  THEM  ON  THE  SCREEN  IN  A  MEMO  BOX  */ 

/*********************************************/ 
InterpolateMemoBox“>Lines->Clear { ) ; 
if  (SatArray->NumSats  ==  0) 

{  sprintf (buffer, "No  Satellites  Interpolated"); 
InterpolateMeitioBox->Lines->Add( buffer)  ; 

} 

else 

{  for  (i=0;  i<SatArray“>NumSats ;  i++) 

{ 

sprintf (buffer, "SSC:  %d". 

Sat  Array  “  >Sat  [i]  .GetSSCNuinber  ( )  )  ; 
InterpolateMemoBox->Lines~>Add( buffer) ; 

} 

} 

/*********************★***********************/ 

/*  DISPLAY  ANY  ERRORS  THAT  HAVE  OCCURRED  */ 
/****★*★********************************★*****/ 
CreateDisplayText (ErrorList,  Errors) ; 
if  (ErrorList . TotalErrors ( ) 1=0) 

{ 

ErrorMeinoBox->LineS”>Clear  ( )  ; 

ErrorMemoBox->LineS“>Add( "THERE  ARE  ERRORS. . . ” ) ; 
for  (i  =  0;  i<ErrorList .TotalErrors () ;  i++) 
ErrorMemoBox->Lines->Add (Errors [i] ) ; 

} 

else 

{  ErrorMeinoBox->Lines~>Clear  ( )  ; 

ErrorMeinoBox“>Lines->Add  ( "No  Errors ..."); 

} 


} 
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E.4  PAPreprocessorForm.cpp 


/*  MODULE  NAME:  PAPreprocessorForm.cpp  */ 
/*  AUTHOR:  •  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  October  12,  1998  */ 
/*  */ 
/*  PURPOSE:  This  is  the  Form  which  can  be  used  as  the  Front  End  to  */ 
/*  the  PAPreprocessor  module.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  BuilderS  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/**************************************************************** **★**★***★*★/ 
/**★******************★***********/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/**★*****★**********★★************/ 

# include  < vc 1 . h> 

#pragma  hdrstop 

#pragma  package ( smar t_ini t ) 

#pragma  resource  ”*.dfm'' 

/*★******************★**★*********/ 

/*  USER-BUILT  LIBRARIES  */ 

/*********************************/ 

# include  "LaserConstants .h" 

#include  "ErrorStructure.h" 

#include  ''PAPreprocessorForm.h'' 

#include  "Aircraf t .h” 

#include  " Satellite. h” 

# include  "PAPreprocessor .h" 

# include  "TLEInput .h" 

/★****★****★***★**★★*★★*★*****★***/ 

/*  C  SPECIFIC  LIBRARIES  */ 

/**★★**★***★**********************/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

# include  <iostream.h> 

#include  <conio.h> 

/*****★★*★**********************/ 

/*  CREATE  THE  FORM  */ 

/★*********★******★*****★***★***/ 

TForml  *Forml  ; 

// - 

_ fastcall  TForml :: TForml (TComponent*  Owner) 

:  TForm{ Owner) 

{ 

} 

/***********************★***★★★*★*★★*★*****************★******★*/ 

/*  THIS  EVENT  HANDLER  BASICALLY  HANDLES  THE  RUNNING  OF  THE  */ 

/*  PREPROCESSOR.  IT  IS  ACTIVATED  BY  PRESSING  THE  "Evaluate  */ 

/*  TLE  File"  BUTTON.  */ 

/***************************************************************/ 

void  _ fastcall  TForml : :EvaluateTLEFileButtonClick (TObject  *Sender) 

{ 

ErrorStructure  ErrorList; 

Errors true ture  *ErrorPtr=&ErrorList;  /*  A  POINTER  TO  ERRORLIST  */ 

Aircraft*  ABLPlatform; 

ABLPlatform  =  new  Aircraft; 

SatStructure  *SatArray  =  new  SatStructure; 
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char 

char 

double 

double 

double 

double 

int 

int 

int 

int 

int 

double 

int 

int 

int 

int 

int 

char 

char 

char 

double 

double 

double 


Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 
buff  [MAXNAMELENGTH]  ; 

Ref erenceHour ; 

Ref erenceMinute ; 

Ref erenceSecond ; 

Re  f Mod J u 1 i anDa t e ; 

CalcYear; 

CalcMonth; 

CalcDay; 

CalcHour ; 

CalcMinute; 

CalcSecond; 

i; 

InFileLength; 

*InFileLengthPtr  =  ScInFileLength; 
OutFileLength; 

*OutFileLengthPtr  =  ScOutFileLength; 
InFileName [MAXNAMELENGTH]  =  " 
OutFileName [MAXNAMELENGTH]  =  " 
buffer [MAXMESSAGELENGTH]  =  "  ” ; 
TimeToNextRun ; 

ThetaGInDegrees ; 

*ThetaPtr  =  &ThetaGInDegrees ; 


/***************★*************★******★*****★**/ 

/*  GET  THE  NAMES  OF  THE  INPUT  AND  OUTPUT  */ 

/*  FILES.  */ 

/★********************************************/ 
strcpy{InFileName,InFileEdit”>Text.c_str() ) ; 
strcpy (OutFileName, OutFileEdi t->Text.c_str ( ) ) ; 


/★******************************************★*/ 

/*  GET  AIRCRAFT  POSITION  INFORMATION  */ 

/*********************************************/ 

ABLPlatform->SetAltitude (AltitudeEdit“>Text.ToDouble( ) ) ; 
strcpy (buff ,HemisphereEdit->Text .c_str( ) ) ; 
if  ( ( ! (strcmp (buf f ,  "N”)))  ||  ( ! ( strcmp (buf f ,  ”n" ) ) ) ) 
ABLPlatforTO->SetLatitudeHemisphere (0 ) ; 
else  if  ((! (strcmp (buf f,  "S")))  ||  (! (strcmp (buf f,  "s")))) 

ABLPlatf orm“>SetLatitudeHemisphere ( 1 ) ; 

else 


{  ErrorList . AddError ( "PAProcessorForm" , 

"Lat  Hemisphere  must  be  north(N)  or  south(S)", 
1); 

} 

ABLPlatf orm“>SetLatitudeDegree (LatitudeDegreeEdit->Text . ToDouble ( ) ) ; 
ABLPlatf orm->SetLatitudeMinute (LatitudeMinuteEdit->Text .ToDouble ( ) ) ; 
ABLPlatf orm->SetLatitudeSecond (LatitudeSecondEdit“>Text . ToDouble ( ) ) ; 
ABLPlatf orm->SetLongitudeDegree (LongitudeDegreeEdit->Text . ToDouble ( ) ) ; 
ABLPlatf orm“'>SetLongitudeMinute (LongitudeMinuteEdit”>Text. ToDouble ( ) ) ; 
ABLPlatform->SetLongitudeSecond (LongitudeSecondEdit->Text .ToDouble ( ) ) ; 
ABLPlatf  orm-‘>SetAltitude  (AltitudeEdit->Text .  ToDouble  ( )  )  ; 
ABLPlatform->SetVelocityX(VelocityXEdit->Text.ToDouble() ) ; 
ABLPlatform->SetVelocityY(VelocityYEdit->Text .ToDouble ( ) ) ; 

ABLPlatf orm->SetVelocityZ (VelocityZEdit->Text. ToDouble ( ) ) ; 


/*★******★**★★***★****************************/ 

/*  get  GREENWICH  MERIDIAN  REFERENCE  */ 

/*****************★***********************★**★/ 

Ref erenceHour  =  ReferenceHourEdit->Text.ToDouble(); 

Ref erenceMinute  =  Ref erenceMinuteEdit->Text .ToDouble () ; 
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ReferenceSecond  =  ReferenceSecondEdit“>Text .ToDouble { ) ; 
RefModJulianDate  =  RefModJulianDateEdit->Text .ToDouble ( ) 
TimeToNextRun  =  TimeToRunEdit->Text . ToDouble ( ) ; 


/********★★★****************************★★*★**/ 

/*  GET  CURRENT  TIME  */ 

/**★****************★**★*★*★****★*****★*★★★***/ 
CalcYear  =  CalcYearEdit“>Text .Toint ( ) ; 
CalcMonth  =  CalcMonthEdit“>Text .Toint () ; 
CalcDay  =  CalcDayEdit->Text . Toint {) ; 

CalcHour  =  CalcHourEdit->Text .Toint 0 ; 
CalcMinute  =  CalcMinuteEdit->Text .Toint () ; 
CalcSecond  =  CalcSecondEdit“>Text .ToDouble {) ; 

/******★***★*★*★************************★*****/ 

/*  RUN  THE  PREPROCESSOR  ON  THE  INPUT  FILE  */ 
/*************************************★*******/ 
PAPreprocessor (  InFileName , 

OutFileName, 

*InFileLengthPtr , 

*OutFileLengthPtr, 

*ABLPlatfonn, 

Ref erenceHour , 

Ref erenceMinute , 
ReferenceSecond, 

Re  f Mod J u 1 i anDa t e , 

CalcYear, 

CalcMonth, 

CalcDay, 

CalcHour, 

CalcMinute, 

CalcSecond, 

TimeToNextRun , 

*ThetaPtr , 

♦Error Ptr) ; 

/**************★**★★********★★**★****************/ 
/*  DISPLAY  THE  NUMBER  OF  SATELLITE  EPHEMERIDES  */ 
/*  READ  IN,  AND  HOW  MANY  WERE  "IN  VIEW".  */ 

/★*********************★******★******************/ 
SatEvalEdit~>Text  =  String(InFileLength); 
InRangeEdit“>Text  =  String(OutFileLength); 
ThetaGEdit~>Text  =  String (The taGInDegrees) ; 

/*****★**★★★★****★**★******★*★****************/ 

/♦  THE  "OutFile"  CONTAINS  ALL  OF  THE  */ 

/*  SATELLITE  TLEs  OF  THE  SATELLITES  THAT  ARE*/ 

/*  IN  VIEW.  NOW  READ  THE  OUTFILE  TO  GET  */ 

/*  ALL  THE  SATELLITES  IN  VIEW.  */ 

/******★**★*************★★********************/ 
ReadTLEFile (OutFileName, 

* Sat Array, 

♦ErrorPtr) ; 

/★******************************************^*/ 

/*  SCROLL  THROUGH  ALL  THE  SATS  IN  VIEW  AND  */ 

/*  SHOW  THEM  ON  THE  SCREEN  IN  A  MEMO  BOX  */ 

/******★***************★********•*********★****/ 
InRangeMemoBox->Lines->Clear ( ) ; 
if  ( SatArray->NumSats  ==  0) 

{  sprint f (buffer, "No  Satellites  In  Range"); 

InRangeMemoBox“>LineS“>Add (buf f er ) ; 

} 
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else 

{  for  (i=0;  i<  Sat  Array- >NuinSat  s ;  i++) 

{ 

sprintf (buffer, "SSC:  %d" , 

SatArray->Sat  [  i  ]  .  GetSSCNuniber  ( ) ) 
InRangeMemoBox->Lines->Add (buffer) ; 

} 

} 

/**★*★***★★**★★*******★★★**★**★*****★★******★*/ 

/*  DISPLAY  ANY  ERRORS  THAT  HAVE  OCCURRED  */ 
/**********************************★********★*/ 
CreateDisplayText (ErrorList,  Errors) ; 
if  (ErrorList .TotalErrors 0 !=0) 

{ 

ErrorMemoBox->Lines->Clear ( ) ; 

ErrorMemoB ox- >L ine s - >Add ( "THERE  ARE  ERRORS., 
for  (i  =  0;  i<ErrorList . TotalErrors () ;  i++) 
ErrorMenioBox->Lines->Add (Errors  [i] )  ; 

} 

else 

{  ErrorMemoBox->Lines->Clear ( ) ; 

ErrorMemoBox->Lines->Add ( "No  Errors ..."); 

} 


} 


358 


E.5  ProcessSatelliteForm.cpp 


/*  MODULE  NAME:  ProcessSatelliteForm.cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  January  10, 1998  */ 
/*  */ 
/*  PURPOSE:  This  is  the  Form  which  can  be  used  to  test  the  modules  */ 
/*  created  in  ProcessSatellite . cpp .  This  form  */ 
/*  takes  all  the  inputs  to  evaluate  a  single  satellite  */ 
/*  ephemeris  against  a  single  airborne  platform,  and  */ 
/*  determines  the  separation  angle  of  the  satellite  pos  */ 
/*  vector  with  respect  to  the  ABL  laser  beamas  well  as  the  */ 
/*  time  to  intersect.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  Builder3  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/*****************★**★********************************★***********★*******★**/ 

/***************★***★*******★*****/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/******★***★**************★*****★*/ 

# include  <vcl.h> 

ttpragma  hdrstop 

#pragma  package (smart_init) 

#pragma  resource  "*.dfm'' 

/*********************************/ 

/*  USER-BUILT  LIBRARIES  */ 

/*********************************/ 
iinclude  "TimeModules .h” 

# include  "LaserConstants .h" 

#include  " Errors tructure .h" 

#include  "TargetSatellite . h" 

# include  "TargetLaser .h” 

#include  "Aircraft .h” 

#include  "Satellite .h" 

#include  "EvaluateEphemerisModules .h" 

# include  "FindDisplacementAngleModules .h" 

# include  " Process Sa tel 1 i teForm . h " 

#include  " ProcessSatellite. h" 

#include  "TLEInput.h" 

/***********************★******★**/ 

/*  C  SPECIFIC  LIBRARIES  */ 

/**★★★*★*★★*★★★*★**★***********  *•*  *  ! 

#include  <stdio.h> 
ttinclude  <stdlib.h> 

#include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

/*******************************/ 

/*  CREATE  THE  FORM  */ 

/***★******★***★****************/ 

TForml  *Forml; 

// - - 

_ fastcall  TForml :: TForml (TComponent*  Owner) 

:  TForm( Owner) 

{ 

} 

/********************★****************★★**★*****★***/ 

/*  THIS  EVENT  HANDLER  READS  SATELLITE  INFORMATION  */ 

/*  FROM  A  FILE  */ 
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/********************************************★******/ 

void  _ fastcall  TForml : : FileButtonClick (TObject  ^Sender) 

{ 

Error Structure  ErrorList; 

SatStructure  *SatArray  =  new  SatStructure; 

char  Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 
int  i  ; 

Errors true ture  *ErrorPtr=&ErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 
char  FileNaine[MAXNAMELENGTH]  =  " 


/********************************★*****************♦/ 

/*  GET  NAME  OF  FILE  TO  READ  TEST  CASE  FROM  */ 

/*******★***********★********************★******★***/ 
strepy  (FileNaitie,  FileEdit->Text .  c_str  ( )  )  ; 

/**************************★**★*★*****★★*★**********/ 

/*  READ  ALL  SATELLITES  FROM  THE  FILE,  AND  USE  THE  */ 

/*  FIRST  SATELLITE  IN  THE  FILE  AS  THE  TEST  CASE  */ 
/*★**★****★*********************★******★*★**********/ 

ReadTLEF i 1 e ( F i 1 eName , 

* Sat Array, 

*ErrorPtr) ; 

/*******★*★***★**★******★*************★**★**★*******/ 

/*  NOTE  THE  Sat[0]  IS  THE  FIRST  SATELLITE  IN  THE  */ 

/ *  FILE  * / 

/★**★*******************■****************★*★★********/ 

SSCEdit->Text  =  String (SatArray->Sat [0] .Gets SCNumber {)) ; 

ClassEdit->Text  =  String (SatArray“>Sat [0] .GetSecurityClass ()) ; 
IntIDEdit->Text  =  String (SatArray“>Sat [0 ] .GetInternationallDO); 
EpochYearEdit->Text  =  String (SatArray->Sat [0] .GetEpochYear ()) ; 
EpochDayEdit“>Text  =  String (double ( SatArray“>Sat [ 0 ] . GetEpochDay ( ) ) ) ; 
RevSquaredEdit->Text  =  String (double (SatArray->Sat [0] .GetRevSquared( ) ) ) ; 
RevCubedEdit->Text  =  String (double (SatArray->Sat [0] .GetRevCubed ( ) ) ) ; 
BStarEdi t->Text  =  String ( double ( SatArray->Sat [ 0 ] . GetBS tarDrag ())); 
EphemerisTypeEdit-“>Text  =  String (SatArray->Sat [0] .GetEphemerisType ( ) ) ; 
ElSetEdit->Text  =  String (SatArray->Sat [0] .GetElementSetNumber ( ) ) ; 
InclinationEdit“>Text  =  String (double (SatArray“>Sat [0] .Getinclination ( ) ) ) ; 
RightAscensionEdit->Text  =  String (double ( Sat Array 

>Sat[0] .GetRightAscension ( ) ) ) ; 

Eccentric! tyEdit->Text  =  String (double (Sat Array 

>Sat[0] .GetEccentricity { ) ) ) ; 

ArgumentOf PerigeeEdit->Text  =  String (double ( SatArray 

>Sat[0] . GetArgumentOf Perigee ( ) ) ) ; 

MeanAnomalyEdit->Text  =  String (double (SatArray“>Sat [0] .GetMeanAnomalyO)); 
MeanMotionEdit“>Text  =  String (double (SatArray->Sat [0] .GetMeanMotion ( ) ) ) ; 
RevNumberEdi t->Text  =  String ( SatArray->Sat [ 0 ] . GetRevAtEpoch ( ) ) ; 


/****★******★***************************★**★***★****/ 

/*  DISPLAY  ALL  ERRORS  */ 

/*********★****★*****★***★*********★★★**************/ 
CreateDisplayText (ErrorList,  Errors) ; 
if  (ErrorList .TotalErrors ()! =0) 

{ 

ErrorMertioBox->LineS“>Clear  ( )  ; 

ErrorMemoBoX“>Lines->Add( "THERE  ARE  ERRORS. . . " ) ; 
for  (i  =  0;  i<ErrorList .TotalErrors () ;  i++) 
ErrorMeinoBox“>Lines->Add (Errors  [i]  )  ; 

} 


360 


else 

{  ErrorMeinoBox->LineS“>Clear  ( )  ; 

ErrorMemoBox~>LineS“>Add ( "No  Errors 

} 


} 


/**★*************★★★*************★*★*******★********/ 

/*  THIS  EVENT  HANDLER  READS  INPUT  PARAMETERS  */ 

/*  AND  CALLS  THE  MAIN  " ProcessSatellite"  ROUTINE  */ 
/****★************************★****★**★*★★***★**★★**/ 

void  _ fastcall  TForml: :EvaluateButtonClick (TObject  *Sender) 

{ 

ErrorStructure  ErrorList; 

ErrorStructure  *ErrorPtr=&ErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 
Aircraft*  ABLPlatform; 

ABLPlatform  =  new  Aircraft; 

Satellite*  Sat; 

Sat  =  new  Satellite; 

char  Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 

char  buff  [MAXNAMELENGTH]  ; 

double  ReferenceHour;  /***************************★/ 

double  ReferenceMinute;  /*  THE  REFERENT  ANGLE  */ 

double  ReferenceSecond;  /*  OF  THETA  G  IS  KNOWN  AS  */ 

double  RefModJulianDate;  /*  THE  REFERENCE  ANGLE  IN  */ 

double  ThetaGInRadians;  /******★*********************/ 

double  *ThetaPtr  =  ScThetaGInRadians  ; 

double  ErrorAngleInRadians; 

double  *ErrorAngleInRadiansPtr  =  &ErrorAngleInRadians ; 

double  LaserAzimuthInDegrees; 

double  LaserAzimuthDot ; 

double  LaserAzimuthDotDot ; 

double  LaserElevationInDegrees ; 

double  LaserElevationDot; 

double  LaserElevationDotDot ; 

double  SatPositionErrorInMeters; 

double  Platf ormPositionErrorlnMeters ; 

double  MissilePositionErrorInMeters; 

double  RangeToMissileInKilometers ; 

double  OtherErrorAngleInDeg; 

int  CalcYear; 

int  CalcMonth; 

int  CalcDay; 

int  CalcHour; 

int  CalcMinute; 

double  CalcSecond; 

double  LazeDuration; 

int  i ; 

double  JulianDate; 

double  *JulianDatePtr  =  ScJulianDate; 
double  RangeToSatInKilometers ; 

double  *RangeToSatInKilometersPtr  =  ScRangeToSatlnKilometers; 
double  SeparationAngle; 

double  *SeparationAnglePtr  =  &SeparationAngle; 
double  SepAngleDot; 

double  *SepAngleDotPtr  =  &SepAngleDot; 
double  SepAngleDotDot ; 

double  *SepAngleDotDotPtr  =  &SepAngleDotDot ; 
int  Intersection; 

int  *IntersectionPtr  =  &Intersection; 

int  Interpolation; 

int  *InterpolationPtr  =  &Iiiterpolation; 

double  Closes tApproachInDegrees ; 
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double  *ClosestApproachInDegreesPtr  =  ScClosestApproachlnDegrees ; 
double  TimeToIntersect; 

double  *TimeToIntersectPtr  =  &TimeToIntersect ; 
double  SecondsFromVertex; 
double  Interpolationincrement; 

/************************★******************★*/ 

/*  GET  SATELLITE  EPHEMERIS  INFORMATION  */ 

/*****************★**★********★********★******/ 

Sat->SetSSCNumber ( SSCEdit->Text . Toint ()); 
strcpy(buff ,ClassEdit“>Text.c_str 0 ) ; 

Sat->SetSecurityClass (buff ) ; 
strcpy {buf f , IntIDEdit->Text . c_str ( ) ) ; 

Sat->SetInternationalID (buff ) ; 

Sat->SetEpochYear (EpochyearEdit~>Text .Toint ( ) ) ; 

Sat“>SetEpochDay (EpochDayEdit->Text .ToDouble ( ) ) ; 
Sat”>SetRevSquared(RevSquaredEdit->Text .ToDouble ()); 
Sat->SetRevCubed(RevCubedEdit->Text .ToDouble ( ) ) ; 

Sat“>SetBStarDrag  (BStarEdit-'>Text  .ToDouble  ( )  )  ; 

Sat->SetEpheinerisType  (EphemerisTypeEdit“>Text.  Toint  ( )  )  ; 
Sat“>SetElementSetNumber (ElSetEdit->Text .Toint ( ) ) ; 

Sat->SetInclination (InclinationEdit“>Text. ToDouble ( ) ) ; 
Sat->SetRightAscension (RightAscensionEdit->Text .ToDouble ( ) ) ; 
Sat->SetEccentricity(EccentricityEdit~’>Text .ToDouble ( ) ) ; 
Sat->SetArgumentOf Perigee (ArgumentOf PerigeeEdit->Text . ToDouble ()); 
Sat“>SetMeanAnomaly (MeanAnomalyEdit->Text . ToDouble ( ) ) ; 
Sat->SetMeanMotion (MeanMotionEdit->Text . ToDouble ()); 

Sat->SetRevAtEpbch (RevNuniberEdit~>Text .Toint 0 ) ; 

/*************************★***********★*******/ 

/*  GET  AIRCRAFT  POSITION  INFORMATION  */ 

/******★******★**★******************★*★*★***★*/ 
ABLPlatfonn->SetAltitude (AltitudeEdit->Text . ToDouble ( ) ) ; 
strcpy(buff ,HemisphereEdit->Text.c_str 0 ) ; 
if  ( ( ! (strcmp (buf f ,  "N")))  |{  ( ! (strcmp (buf f ,  "n”)))) 

ABLPlatfonn'->SetLatitudeHeini  sphere  ( 0 )  ; 
else  if  ((! (strcmp (buf f,  "S")))  ||  (! (strcmp (buf f,  "s")))) 

ABLPlatform~>SetLatitudeHemisphere(l) ; 

else 

{  ErrorList . AddError ( "EvaluateEphemerisForm" , 

"Lat  Hemisphere  must  be  north(N)  or  south(S)'', 
1)  ; 

} 

ABLPlatform->SetLatitudeDegree (LatitudeDegreeEdit~>Text .ToDouble ( ) ) ; 
ABLPlatform->SetLatitudeMinute (LatitudeMinuteEdit->Text .ToDouble ( ) ) ; 
ABLPlatf orm-*>SetLatitudeSecond (LatitudeSecondEdit->Text . ToDouble ( ) ) ; 
ABLPlatf orm“>SetLongitudeDegree (LongitudeDegreeEdit“>Text . ToDouble ( ) ) ; 
ABLPlatf orm”>SetLongitudeMinute (LongitudeMinuteEdit->Text . ToDouble ()); 
ABLPlatf orm->SetLongitudeSecond (LongitudeSecondEdit->Text . ToDouble ()); 
ABLPlatf orm->SetAltitude (AltitudeEdit->Text . ToDouble ( ) ) ; 
ABLPlatform->SetVelocityX(VelocityXEdit->Text .ToDouble ( ) ) ; 
ABLPlatform->SetVelocityY(VelocityYEdit->Text .ToDouble ( ) ) ; 

ABLPlatf orm“>SetVelocityZ (VelocityZEdit“>Text. ToDouble ( ) ) ; 

/***********★***★★★★*★********★************★*★/ 

/*  GET  GREENWICH  MERIDIAN  REFERENCE  */ 

/*********************************************/ 

ReferenceHour  =  Ref erenceHourEdit“>Text .ToDouble ( ) ; 

Ref erenceMinute  =  Ref erenceMinuteEdit->Text . ToDouble ( ) ; 

ReferenceSecond  =  ReferenceSecondEdit->Text.ToDouble(); 
RefModJulianDate  =  Re fModJulianDateEdit->Text .ToDouble () ; 

/**★*****★************************************/ 


362 


/*  GET  CURRENT  TIME  */ 

/*********************************************/ 

CalcYear  =  CalcYearEdit-->Text  .Toint  ( )  ; 

CalcMonth  =  CalcMonthEdit“>Text .Toint () ; 

CalcDay  =  CalcDayEdit->Text . Toint ( ) ; 

CalcHour  =  CalcHourEdit“>Text .Toint 0 ; 

CalcMinute  =  CalcMinuteEdit->Text .Toint () ; 

CalcSecond  =  CalcSecondEdit”>Text .ToDouble ( ) ; 

LazeDuration  =  LazeDurationEdit->Text . ToDouble ( ) ; 

/*************★********★***★*★★*****★**★****★*/ 

/*  GET  OTHER  INPUTS  */ 

/*************★***************************★**★/ 
SatPositionErrorInMeters  =  SatPosErrorEdit->Text . ToDouble () ; 
PlatfonnPositionErrorInMeters  =  PlatfonnPosErrorEdit“>Text .ToDouble ( ) 
MissilePositionErrorInMeters  =  MissilePosErrorEdit->Text .ToDouble ( ) ; 
RangeToMissileInKilometers  =  MissileRangeEdit“>Text .ToDouble ( ) ; 
OtherErrorAngleInDeg  =  OtherErrorsEdit“>Text.ToDouble{); 
LaserAzimuthInDegrees  =  LaserAzimuthEdit->Text . ToDouble ( ) ; 
LaserElevationInDegrees  =  LaserElevationEdit->Text.ToDouble(); 
LaserAzimuthDot  =  LaserAziinuthDotEdit->Text .ToDouble () ; 
LaserElevationDot  =  LaserElevationDotEdit-'>Text .ToDouble () ; 
LaserAzimuthDotDot  =  Las erAziinuthDotDotEdit->Text .ToDouble () ; 
LaserElevationDotDot  =  LaserElevationDotDotEdit->Text . ToDouble ( ) ; 
SecondsFromVertex  =  VertexIntervalEdit->Text .ToDouble () ; 
Interpolationincrement  =  InterpolationIncrementEdit”>Text .ToDouble ( ) ; 

/********★***********★★*★**************★*★★★********/ 

/*  FIND  THE  CURRENT  ANGLE  OF  THETA  G  AT  THE  */ 

/*  TIME  OF  PROPAGATION  */ 

/************★***********★******★******★★********★**/ 

ThetaGInRadians  =  0; 

FindThetaG (Ref erenceHour , 

Ref erenceMinute , 

ReferenceSecond, 

RefModJulianDate , 

CalcYear, 

CalcMonth, 

CalcDay, 

CalcHour, 

CalcMinute, 

CalcSecond, 

*ThetaPtr, 

♦ErrorPtr) ; 

/******★*★************★**************★★*■*****★*★*★**/ 

/*  CONVERT  THE  PROPAGATION  TIME  TO  A  JULIAN  DATE  */ 

/*  THAT  CAN  BE  RECOGNIZED  BY  "TargetSatellite" .  */ 

/*********★*******★******************★**********★***/ 

JulianDate  =  0.0; 

Conver tCalenderTo Jul ian ( CalcYear , 

CalcMonth, 

CalcDay, 

CalcHour, 

CalcMinute, 

CalcSecond, 

*JulianDatePtr , 

*ErrorPtr) ; 

/*********************************************★*****/ 

/*  CALL  "ProcessSatellite”  MODULE  TO  FIND  THE  */ 

/*  INTERSECTION  ANGLES  AND  TIME  */ 

/*****************************★***********★★********/ 
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ProcessSatellite ( *ABLPlatf orm, 

*Sat, 

Ref erenceHour , 

Ref erenceMinute , 
ReferenceSecond, 

Re  f Mod J u 1 i anDa t e , 
SecondsFromVertex, 
Interpolationincrement , 
*ThetaPtr, 

JulianDate, 

LazeDuration, 
LaserAzimuthInDegrees , 
LaserAzimuthDot , 
LaserAzimuthDotDot , 
LaserElevationInDegrees , 
LaserElevationDot , 
LaserElevationDotDot , 
SatPositionErrorInMeters , 

Platf ormPositionErrorInMeters , 
MissilePositionErrorInMeters , 
RangeToMissileInKilometers , 
OtherErrorAngleInDeg , 
*RangeToSatInKilometersPtr, 
*ErrorAngleInRadiansPtr , 
*SeparationAnglePtr , 
*SepAngleDotPtr, 
*SepAngleDotDotPtr , 
♦IntersectionPtr , 
*InterpolationPtr , 
*TimeToIntersectPtr , 
*ClosestApproachInDegreesPtr , 
*ErrorPtr) ; 


/******★******★**************************★***★*★*★★*/ 

/*  OUTPUT  THE  TEST  PARAMETERS  WHICH  MONITOR  THE  */ 

/*  CALCULATIONS  IN  "FindDisplacementAngle” .  */ 

/*★*★***********************★****★******************/ 

RangeToSatEdit->Text  =  String(RangeToSatlnKiloineters); 
ErrorAngleEdit->Text  =  String (ErrorAngleInRadians  *  RADTODEGREES) ; 
SepAngleEdit->Text  =  String (Separ at ionAngle  *  RADTODEGREES); 
SepDotEdit->Text  =  String (SepAngleDot  *  RADTODEGREES); 
SepDotDotEdit“>Text  =  String (SepAngleDotDot  ^RADTODEGREES); 
TimeToIntersectEdit“>Text  =  String (TimeToIntersect) ; 

Closes tApproachEdit->Text  =  String (Closes tApproachInDegrees) ; 

if  (Intersection  ==  1) 

IntersectionEdit”>Text  =  "YES"; 
else 

Inters  ectionEdit-*>Text  =  "NO"; 

if  (Interpolation  ==  1) 

InterpolationEdit->Text  =  "YES"; 
else 

InterpolationEdit”>Text  =  "NO"; 

/***************★******★**★**************** 

/*  PRINT  OUT  ALL  ERROR  MESSAGES  */ 

/******************************************/ 

CreateDisplayText (ErrorList ,  Errors ) ; 
if  (ErrorList .TotalErrors ( ) !=0) 

{ 

ErrorMeinoBoX“>Lines->Clear  ( )  ; 


364 


ErrorMeiiioBox->LineS“>Add  ( "THERE  ARE  ERRORS.  .  .  ; 

for  (i  =  0;  i<ErrorList .TotalErrors ( ) ;  i++) 
ErrorMemoBox->Lines->Add (Errors [i] ) ; 

} 

else 

{  ErrorMemoBoX'’>Lines->Clear  ( )  ; 

ErrorMemoBox-->Lines->Add(  "No  Errors 

} 
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E.6  SGP4TestForm.cpp 


/**★*************★**★****★★**★****★********★***★★*★★★★****★****************★*/ 
/*  MODULE  NAME:  SGP4TestFo2nn. cpp  */ 

/*  AUTHOR:  Captain  David  Vloedman  */ 

/*  DATE  CREATED:  October  10,  1998  */ 

/*  */ 

/*  PURPOSE:  This  test  form  module  is  a  test  module  for  the  routines  */ 

/*  handle  calling  of  the  satellite  propagator.  ”SGP4''.  This*/ 

/*  propagator  is  US  Space  Command's  satellite  time/position*/ 

/*  propagator  using  general  perturbations  only.  The  */ 

/*  version  of  SGP4  used  here  is  version  3.01  in  C  */ 

/*  */ 

/*  */ 

/*  COMPILER:  Borland  C++  Builder3  Standard  version  */ 

/*  This  compiler  should  be  used  to  compile  and  link.  */ 

/*  */ 


/**★******************★***★***★★★******************************★★★******★****/ 

/*★*****★**★********************★*/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/★*★★**★*★*★***★★★★★**★***********/ 

# include  <vcl.h> 

tpragma  hdrstop 

#pragma  package { smar t_ini t ) 

#pragma  resource  " * . dfm" 

/**★*****★************************/ 

/*  USER-BUILT  LIBRARIES  */ 

/***★**********★*******★★*★***★***/ 

#include  "SGP4TestForm.h" 

# include  ” SGP4SupportModules . h " 

#include  "LaserConstants .h" 

#include  " Satellite. h“ 

# include  " Errors true ture .h" 

# include  "TLEInput.h” 

/**********************★**********/ 

/*  C  STANDARD  LIBRARIES  */ 

/****★*****************★**********/ 
ttinclude  <stdio.h> 

# include  <stdlib.h> 

#include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

# include  "SGP4Routines .h” 

#include  "TimeModules .h" 

/****★**********★***************/ 

/*  CREATE  THE  FORM  */ 

/******************************★/ 

TForml  *Forml; 

// - 

_ fastcall  TForml :: TForml (TComponent*  Owner) 

:  TForm( Owner) 

{ 

} 

/**★************★*★*******★***************★*********/ 

/*  THIS  EVENT  HANDLER  PROCEDURE  HANDLES  THE  BUTTON*/ 

/*  THAT  CAN  LOAD  A  TEST  CASE  FROM  A  FILE  FOR  LATER*/ 

/*  EXECUTION  */ 

/★***★***********★********************************★*/ 

void  _ fastcall  TForml : :Fil eButtonC lick (TObject  *Sender) 

{ 

Errors true ture  ErrorList; 
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SatStructure  *SatArray  =  new  Sat Structure; 


char  Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 
int  i; 

ErrorStructure  *ErrorPtr=&ErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 
char  FileNameLMAXNAMELENGTH]  =  "  ” ; 


/*********★**★***********************************★**/ 

/*  GET  NAME  OF  FILE  TO  READ  TEST  CASE  FROM  */ 

/****★★★***********★★***************★*****★********★/ 
strcpy (FileName,FileEdit->Text .c_str 0 ) ; 

/************★*★★**★***★***********★***★************/ 

/*  READ  ALL  SATELLITES  FROM  THE  FILE,  AND  USE  THE  */ 

/*  FIRST  SATELLITE  IN  THE  FILE  AS  THE  TEST  CASE  */ 
/******★****★*****★********★**★**********★**********/ 

ReadTLEFile (FileName, 

*SatArray, 

*ErrorPtr) ; 

/★************★*****★**★***★**********★*★★*★★★*****★/ 

/*  NOTE  THE  Sat[0]  IS  THE  FIRST  SATELLITE  IN  THE  */ 

/*  FILE  */ 

/*****★**★********★*******************★★***★***★*★★*/ 

SSCEdit->Text  =  String (SatArray->Sat [ 0 ] .GetSSCNumber ( ) ) ; 

ClassEdit“>Text  =  String (SatArray->Sat [0] .GetSecurityClass ()) ; 
IntIDEdit“>Text  =  String (SatArray->Sat [0 ] .GetInternationallD ( ) ) ; 
EpochYearEdit->Text  =  String (SatArray->Sat [0] .GetEpochYear ( ) ) ; 
EpochDayEdit^>Text  =  String (double (Sat Array“>Sat [0] .GetEpochDay ( ) ) ) ; 
RevSquaredEdit->Text  =  String (double (SatArray->Sat [0] .GetRevSquaredO)); 
RevCubedEdit“>Text  =  String (double (SatArray->Sat [0] .GetRevCubedO)); 
BStarEdit“>Text  =  String (double (SatArray->Sat [0] .GetBStarDrag( ) ) ) ; 
EphemerisTypeEdit->Text  =  String (SatArray->Sat [0] .GetEphemerisType ( ) ) ; 
ElSetEdit~>Text  =  String (SatArray-->Sat  [0]  .GetEleiuentSetNu^er  ( )  ); 
InclinationEdit->Text  =  String (double (SatArray“>Sat [0] .GetInclination ( ) ) ) ; 
RightAscensionEdit->Text  =  String (double (SatAr ray 

>Sat[0] .GetRightAscension ( ) ) ) ; 

EccentricityEdit->Text  =  String (double ( Sat Array 

>Sat [0] .GetEccentricity ( ))); 

ArgumentOfPerigeeEdit->Text  =  String (double (SatAr ray 

>Sat[0] . GetArgumentOf Perigee ( ) )  )  ; 

MeanAnomalyEdit“>Text  =  String (double (SatArray“>Sat [0] .GetMeanAnomaly ( ) ) ) ; 
MeanMotionEdit->Text  =  String (double (SatArray“>Sat [0] .GetMeanMotion())); 
RevNuiTiberEdit->Text  =  String  (SatArray->Sat[0].GetRevAtEpoch()); 


/**********************★**************************** ^ 

/*  DISPLAY  ALL  ERRORS  */ 

/*********★*******★★********************************/ 
CreateDisplayText (ErrorList,  Errors) ; 
if  (ErrorList .TotalErrors 0 !=0) 

{ 

ErrorMemoBox->Lines->Clear ( ) ; 

ErrorMemoBox->Lines->Add( "THERE  ARE  ERRORS. . . " ) ; 
for  (i  =  0;  i<ErrorList .TotalErrors () ;  i++) 
ErrorMemoBox-->Lines->Add  (Errors  [i]  )  ; 

} 

else 

{  ErrorMemoBox->Lines->Clear ( ) ; 

ErrorMemoBox“>LineS“>Add ( "No  Errors. . . " ) ; 

} 


} 
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/***************************************************/ 

/*  THIS  PROCEDURE  ACTUALLY  RUNS  THE  TEST  CASE  AS  */ 

/*  IT  HAS  BEEN  ENTERED  INTO  THE  FORM  AND  DISPLAYS  */ 

/*  THE  RESULTS  OF  THE  RUN  */ 

/★******★***★★**********★***********★★*★***★****★**★/ 

void  _ fastcall  TForml : :RunButtonClick(TObject  ^Sender) 

{ 

Error Structure  ErrorList; 

Errors true ture  *ErrorPtr=&ErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 
Satellite*  Sat; 

Sat  =  new  Satellite; 

char  Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 
int  i; 

char  buff  [MAXNAMELENGTH]  ; 
double  JulianDate; 
double  Inclination; 

double  *InclinationPtr  =  Sclnclination; 
double  RightAscension; 

double  *RightAscensionPtr  =  ScRightAscension; 
double  Eccentricity; 

double  *EccentricityPtr  =  &Eccentricity; 
double  MeanMotion; 

double  *MeanMotionPtr  =  &MeahMotion; 
double  ArgumentOf Perigee ; 

double  *ArgumentOfPerigeePtr  =  &ArgumentO f Peri gee; 
double  MeanAnomaly; 

double  *MeanAnomalyPtr  =  &MeanAnomaly; 
double  X; 

double  *XPtr  =  &X; 
double  Y; 

double  *YPtr  =  &Y; 
double  Z; 

double  *ZPtr  =  &Z; 
double  Xdot; 

double  *XdotPtr  =  &Xdot; 
double  Ydot; 

double  *YdotPtr  =  &Ydot; 

.  double  Zdot; 
double  *ZdotPtr  =  &Zdot; 
double  Delta; 

double  *DeltaPtr  =  &Delta; 


/*******************★****★********************/ 

/*  GET  SATELLITE  EPHEMERIS  INFORMATION  */ 

/*********************************************/ 
Sat->SetSSCNuinber (SSCEdit->Text.ToInt 0 ) ; 
strepy  (buf  f ,  ClassEdit->Text .  c_str  ( )  )  ;• 

Sat->SetSecurityClass (buff) ; 
strepy  (buf  f ,  IntIDEdit“*>Text .  c_str  ( )  )  ; 

Sat”>SetInternationalID (buf f ) ; 

Sat->SetEpochYear {EpochYearEdit->Text .Toint ( ) ) ; 
Sat“>SetEpochDay {EpochDayEdit~>Text . ToDouble ()); 
Sat->SetRevSquared (RevSquaredEdit“>Text .ToDouble ( ) ) ; 
Sat->SetRevCubed (RevCubedEdit“>Text .ToDouble ( ) ) ; 
Sat“>SetBStarDrag  (BStarEdit-->Text .  ToDouble  ()); 
Sat->SetEphemerisType (EphemerisTypeEdit“>Text .Toint ()); 
Sat“>SetElementSetNuinber (ElSetEdit“>Text.ToInt ( ) ) ; 
Sat->SetInclination (InclinationEdit~>Text .ToDouble ( ) ) ; 
Sat->SetRightAscension  {Righti^,scensionEdit->Text  .ToDouble  ( )  )  ; 
Sat->SetEccentricity(EccentricityEdit”>Text .ToDouble ( ) ) ; 
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Sat ->SetArgumentOf Perigee ( ArgumentOf PerigeeEdi t->Text . ToDouble ( ) ) 

Sat->SetMeanAnomaly (MeanAnomalyEdit->Text . ToDouble ()); 

Sat->SetMeanMotion (MeanMotionEdit“>Text . ToDouble ()); 

Sat->SetRevAtEpoch (RevNumberEdit->Text .Toint ( ) ) ; 

JulianDate  =  JulianDateEdit->Text .ToDouble () ; 

/******★********★**************★*****★**★******★*★**/ 

/*  MAKE  A  CALL  TO  THE  SGP4  PROPAGATOR  */ 

/***★*****************★******★***★*★*★*★************/ 

CallSGP4 (*Sat, 

JulianDate, 

*XPtr, 

*YPtr, 

*ZPtr, 

*XdotPtr, 

*ydotPtr , 

*ZdotPtr, 

*InclinationPtr , 

*RightAscens ionPtr , 

*EccentricityPtr, 

*MeanMotionPtr , 

*ArgumentOf PerigeePtr , 

*MeanAnoinalyPtr , 

^DeltaPtr, 

*ErrorPtr) ; 

/*********★*★*********★*****★*********★★******/ 

/*  Convert  Mean  Motion  from  radians /sec  to  */ 

/*  revolutions  per  day  */ 

/*******★*★*★****★***********★★★**************/ 

MeanMotion  =  MeanMotion  *  MINUTESPERDAY  /  TWOPI; 

/************★*********************★★**************★/ 

/*  DISPLAY  THE  RESULTS  OBTAINED  FROM  SGP4  */ 

/★*★*★***************★******************************/ 

XEdit“>Text  =  String (X); 

YEdit->Text  =  String (Y) ; 

ZEdit->Text  =  String (Z); 

XdotEdit~>Text  =  String (Xdot) ; 

YdotEdit->Text  =  String (Ydot ) ; 

ZdotEdit->Text  =  String (Zdot) ; 

DeltaEdit->Text  =  String (Delta) ; 

InclinOutEdit->Text  =  String (Inclination) ; 

RightAsOutEdit->Text  =  String (RightAscension) ; 

EccentricityOutEdit“>Text  =  String(Eccentricity); 

MeanMotionOutEdit->Text  =  String (MeanMotion) ; 

ArgOfPerigeeOutEdit->Text  =  String(ArgumentOfPerigee); 

MeanAnomalyOutEdit->Text  =  String (MeanAnomaly) ; 

DeltaEdit->Text  =  String (Delta); 


/*****************★*********************************/ 

/*  DISPLAY  ALL  ERRORS  */ 

/********************************************★******/ 
CreateDisplayText (ErrorList,  Errors) ; 
if  (ErrorList .TotalErrors 0 !=0) 

{ 

ErrorMemoBox->Lines->Clear ( ) ; 

ErrorMemoBoX“>Lines->Add( "THERE  ARE  ERRORS. . . " ) ; 
for  (i  =  0;  i<ErrorList .TotalErrors 0 ;  i++) 
ErrorMemoBox->Lines->Add (Errors [i] ) ; 

} 
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else 

{  ErrorMemoBox->Lines->Clear 0 ; 

ErrorMeinoBox“>Lines->Add  ( ’’No  Errors  .  . 

} 
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E.7  TargetPlatformForm.cpp 


/*  MODULE  NAME:  TargetPlatformForm.cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  January  13,  1998  */ 
/*  */ 
/*  PURPOSE:  This  is  the  Form  which  can  be  used  to  test  the  modules  */ 
/*  created  in  Targe t Plat f orm. cpp .  This  form  */ 
/*  takes  all  the  inputs  to  evaluate  the  position  and  */ 
/*  velocity  of  the  aircraft  in  ECI  and  REN  coordinates.  */ 
/*  The  conversion  matrix  is  also  returned,  but  not  */ 
/*  displayed  on  the  form.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  BuilderS  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/***********************★******★★*★******★*★*********************************/ 

/**★**★**★*★★********★**★**★★*★***/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/******************★★★************/ 

# include  <vcl.h> 

#pragma  hdrstop 

#pragma  package ( smar t_ini t ) 

#pragma  resource  ''*.dfm'' 

/★**★**************************★**/ 

/*  USER-BUILT  LIBRARIES  */ 

/*************★★**★**★*★**********/ 

#include  "TimeModules .h" 

# include  "LaserConstants . h" 

# include  "ErrorStructure.h" 

# include  ''TargetPlatformForm.h*' 

#include  "Aircraf t .h” 

# include  "EvaluateEphemerisModules .h” 

#include  "TargetPlatform.h'' 

# include  "TLEInput .h" 

/*********************★★★*********/ 

/*  C  SPECIFIC  LIBRARIES  */ 

/*********************************/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

/********************★****★*****/ 

/*  CREATE  THE  FORM  */ 

/*★**★**************★***********/ 

TForml  *Forml; 

// - - 

_ fastcall  TForml :: TForml (TComponent*  Owner) 

:  TForm( Owner) 

{ 

} 

/*******★**★*★********★*****************************★**/ 

/*  THIS  ERROR  HANDLER  CALLS  THE  "TargetPlatf orm"  */ 

/ *  MODULE .  * / 

/***********************************★**★**★**★*★*******/ 

void  _ fastcall  TForml : :EvaluateButtonClick (TObject  *Sender) 

{ 

ErrorStructure  ErrorList; 
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Errors true ture  *ErrorPtr=&ErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 
Aircraft*  ABLPlatform; 

ABLPlatform  =  new  Aircraft; 


char 

char 

double 

double 

double 

double 

double 

double 


Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 
buff  [KAXNAMELENGTH]  ; 


Ref erenceHour ; 

Ref erenceMinute ; 
ReferenceSecond; 

Re  f Mo  d Ju 1 i anDa t e ; 
ThetaGInRadians ; 

*ThetaPtr  =  &ThetaGInRadians 


/****★**★***★★*★★★***★******★/ 
/*  THE  REFERENT  ANGLE  */ 

/*  OF  THETA  G  IS  KNOWN  AS  */ 
/*  THE  REFERENCE  ANGLE  IN  */ 
/******************★*********/ 


int  CalcYear; 

int  CalcMonth; 

int  CalcDay; 

int  CalcHour; 

int  CalcMinute; 

double  CalcSecond; 
int  i ; 

double  JulianDate; 

double  *JulianDatePtr  =  SeJulianDate; 
double  PlatformECIRhoX; 

double  *PlatfonnECIRhoXPtr  =  &PlatformECIRhoX; 
double  PlatformECIRhoY; 

double  *PlatfonnECIRhoYPtr  =  ScPlatformECIRhoY; 
double  PlatformECIRhoZ; 

double  *PlatfonnECIRhoZPtr  =  ScPlatformECIRhoZ; 
double  PlatformECIRhoXDot; 

double  *PlatformECIRhoXDotPtr  =  &Platf ormECIRhoXDot ; 
double  PlatformECIRhoYDot ; 

double  *PlatforinECIRhoYDotPtr  =  &PlatfontiECIRhoYDot ; 
double  PlatformECIRhoZDot ; 

double  *Platforn\ECIRhoZDotPtr  =  ScPlatfonnECIRhoZDot  ; 
double  PlatformECIRhoXDotDot; 

double  *PlatfonnECIRhoXDotDotPtr  =  &PlatformECIRhoXDotDot ; 
double  PlatformECIRhoYDotDot; 

double  *PlatfonnECIRhoYDotDotPtr  =  &PlatformECIRhoYDotDot ; 
double  PlatformECIRhoZDotDot ; 

double  *PlatformECIRhoZDotDotPtr  =  &PlatfonnECIRhoZDotDot ; 
double  PlatformRENRhoR; 

double  *PlatformRENRhoRPtr  =  &PlatforniRENRhoR; 
double  PlatformRENRhoE; 

double  *PlatformRENRhoEPtr  =  &Platf ormRENRhoE; 
double  PlatformRENRhoN; 

double  *PlatfonnRENRhoNPtr  =  &PlatfonnRENRhoN; 
double  PlatformRENRhoRDot ; 

double  *Platf ormRENRhoRDotPtr  =  &PlatfonnRENRhoRDot ; 
double  PlatformRENRhoEDot; 

double  *Platf OinnRENRhoEDotPtr  =  &Platf ormRENRhoEDot ; 
double  PlatformRENRhoNDot; 

double  *PlatforinRENRhoNDotPtr  =  &PlatfonTiRENRhoNDot  ; 
double  PlatformRENRhoRDotDot ; 

double  *PlatfonnRENRhoRDotDotPtr  =  ScPlatformRENRhoRDotDot ; 
double  PlatformRENRhoEDotDot ; 

double  *PlatforTnRENRhoEDotDotPtr  =  &PlatformRENRhoEDotDot ; 
double  PlatformRENRhoNDotDot ; 

double  *PlatfonnRENRhoNDotDotPtr  =  &PlatformRENRhoNDotDot ; 
double  ECItoRENMatrixll ; 

double  *ECItoRENMatrixllPtr  =  &ECItoRENMatrixll ; 
double  ECItoRENMatrixl2 ; 

double  *ECItoRENMatrixl2Ptr  =  &ECItoRENMatrixl2 ; 
double  ECItoRENMatrixlS ; 

double  *ECItoRENMatrixl3Ptr  =  &ECItoRENMatrixl3 ; 
double  ECItoRENMatrix21 ; 
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&ECItoRENMatrix2 1 ; 


double  *ECItoRENMatrix21Ptr  = 
double  ECItoRENMatrix22 ; 
double  *ECItoRENMatrix22Ptr  =  &ECItoRENMatrix22 ; 
double  ECItoRENMatrix23 ; 

double  *ECItoRENMatrix23Ptr  =  &ECItoRENMatrix23 ; 
double  ECItoRENMatrix31 ; 

double  *ECItoRENMatrix3lPtr  =  &ECItoRENMatrix31 ; 
double  ECItoRENMatrix32 ; 

double  *ECItoRENMatrix32Ptr  =  &ECItoRENMatrix32 ; 
double  ECItoRENMatrix33 ; 

double  *ECItoRENMatrix33Ptr  =  &ECItoRENMatrix33 ; 

/*******************************************★*/ 

/*  GET  AIRCRAFT  POSITION  INFORMATION  */ 

/*******************★*******★***********★*****/ 
ABLPlatforni->SetAltitude{AltitudeEdit“>Text.ToDouble( ) ) ; 
strcpy  (buff  ,HeinisphereEdit“>Text .  c_str  ( )  )  ; 
if  ( ( ! (strcmp (buf f ,  "N")))  |{  ( ! (strcmp (buf f ,  "n")))) 

ABLPlatf orin->SetLatitudeHemisphere  ( 0 )  ; 
else  if  ((! (strcmp (buf f,  "S")))  ||  (! (strcmp (buf f,  "s")))) 

ABLPlatf orm->SetLati tudeHemi sphere ( 1 ) ; 

else 

{  ErrorList . AddError ( "EvaluateEphemerisForm" , 

"Lat  Hemisphere  must  be  north(N)  or  south(S)”, 
1)  ; 

} 

ABLPlatf orm->SetLatitudeDegree (LatitudeDegreeEdit->Text .ToDouble ( ) ) ; 
ABLPlatf orm->SetLatitudeMinute (LatitudeMinuteEdit->Text .ToDouble ()); 
ABLPlatf orm->SetLatitudeSecond (LatitudeSecondEdit->Text . ToDouble ()); 
ABLPlatform->SetLongitudeDegree (LongitudeDegreeEdit->Text . ToDouble ( ) ) ; 
ABLPlatf orm->SetLongitudeMinute (LongitudeMinuteEdit->Text .ToDouble ()); 
ABLPlatform-'>SetLongitudeSecond(LongitudeSecondEdit->Text .ToDouble ()); 
ABLPlatf orm->SetAltitude (AltitudeEdit->Text .ToDouble ( ) ) ; 
ABLPlatform->SetVelocityX(VelocityXEdit-’>Text .ToDouble ( ) ) ; 

ABLPlatf orm->SetVelocityy (VelocityYEdit->Text. ToDouble ( ) ) ; 

ABLPlatf orm->SetVelocityZ (VelocityZEdit->Text. ToDouble ( ) ) ; 

/******************★**************************/ 

/*  GET  GREENWICH  MERIDIAN  REFERENCE  */ 

/****************★**★*****★************★******/ 

Ref erenceHour  =  Ref erenceHourEdit->Text . ToDouble ( ) ; 

ReferenceMinute  =  Ref erenceMinuteEdit->Text .ToDouble () ; 

Ref erenceSecond  =  ReferenceSecondEdit”>Text.ToDouble(); 
RefModJulianDate  =  Ref ModJulianDateEdit->Text .ToDouble () ; 

/*********************************************/ 

/*  GET  CURRENT  TIME  */ 

/**★*****★************************************/ 

CalcYear  =  CalcYearEdit->Text .Toint ( ) ; 

CalcMonth  =  CalcMonthEdit'->Text  .Toint  ()  ; 

CalcDay  =  CalcDayEdit->Text .Toint () ; 

CalcHour  =  CalcHourEdit“>Text .Toint () ; 

CalcMinute  =  CalcMinuteEdit->Text .Toint () ; 

CalcSecond  =  CalcSecondEdit->Text .ToDouble (); 


/***************★*★******★********★**★******★*****★*/ 
/*  FIND  THE  CURRENT  ANGLE  OF  THETA  G  AT  THE  */ 

/*  TIME  OF  PROPAGATION  */ 

/*********★*************★*************************★*/ 
ThetaGInRadians  =  0; 

FindThetaG ( Ref erenceHour , 

ReferenceMinute , 

Ref erenceSecond^ 
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RefModJulianDate, 

CalcYear , 

CalcMonth, 

CalcDay, 

CalcHour , 

CalcMinute, 

CalcSecond; 

*ThetaPtr, 

♦Error Ptr) ; 

/*********************************:^*****************/ 
/*  CONVERT  THE  PROPAGATION  TIME  TO  A  JULIAN  DATE  */ 
/*  THAT  CAN  BE  RECOGNIZED  BY  "TargetSatellite" .  ♦/ 

/★**★********★**★*★★********************★****★****** 
JulianDate  =  0.0; 

Conver tCalenderTo Jul ian ( CalcYear , 

CalcMonth, 

CalcDay, 

CalcHour , 

CalcMinute, 

CalcSecond, 

♦JulianDatePtr, 

♦Error Ptr) ; 

/***************★**★**********★★**********★*********/ 
/♦  EVALUATE  THE  POSITION,  VELOCITY  AND  THE  ♦/ 

/♦  ACCELERATION  OF  THE  PLATFORM  */ 

/*************★**********★*★**********★**★**********/ 
TargetPlatf  orm  ( ♦ABLPlatf  orin, 

♦ThetaPtr, 

JulianDate, 

♦PlatformECIRhoXPtr, 

♦ P 1 a t f ormEC IRhoYP t r , 

♦PlatformECIRhoZPtr, 

♦PlatformECIRhoXDotPtr, 

♦PlatformECIRhoYDotPtr, 

♦PlatformECIRhoZDotPtr, 

♦Platf ormECIRhoXDotDotPtr , 
♦PlatformECIRhoYDotDotPtr, 

♦Platf ormECIRhoZDotDotPtr , 
♦PlatformRENRhoRPtr, 

♦Plat  f  ormRENRhoEP t r , 

♦ Plat  f ormRENRhoNPtr , 
♦PlatformRENRhoRDotPtr , 

♦ Plat  f ormRENRhoEDo t P tr , 

♦ P 1 a t f ormRENRhoNDo t P t r , 

♦Platf ormRENRhoRDotDotPtr , 

♦Platf  ormRENRhoEDo  t Do  t  P  t r , 
♦PlatformRENRhoNDotDotPtr, 

♦ECI toRENMatr ixl IPtr , 
♦ECItoRENMatrixl2Ptr , 
♦ECItoRENMatrixl3Ptr, 

♦ECI toRENMatrix2 IPtr , 
♦ECItoRENMatrix22Ptr , 

♦ECI toRENMatr ix2  3  P tr , 

♦ECI toRENMatr ix3 IPtr , 
♦ECItoRENMatrix32Ptr, 

♦ECI toRENMatr ix3  3  Ptr , 

♦ErrorPtr) ; 


/****************★**★*******★******************★****/ 
/♦  OUTPUT  THE  TEST  PARAMETERS  WHICH  MONITOR  THE  ♦/ 
/♦  CALCULATIONS  IN  "TargetSatellite" .  ♦/ 

/****★****************★*****************************/ 
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XEdit-’>Text  =  String  (PlatformECIRhoX)  ; 

YEdit->Text  =  String (PlatformECIRhoY) ; 

ZEdit->Text  =  String(PlatformECIRhoZ); 

XDotEdit->Text  =  String(PlatfonnECIRhoXDot*3600); 
YDotEdit->Text  =  String (PlatfonnECIRhoYDot*3600) ; 
ZDotEdit->Text  =  String (PlatformECIRhoZDot*3 600 ) ; 
XDotDotEdit->Text  =  String(PlatformECIRhoXDotDot*1000); 
YDotDotEdit“>Text  =  String (Plat formECIRhoYDotDot *1000 ) ; 
ZDotDotEdit->Text  =  String (PlatfonnECIRhoZDotDot*1000 ) ; 
REdit->Text  =  String (PlatformRENRhoR) ; 

EEdit->Text  =  String (Plat formRENRhoE) ; 

NEdit->Text  =  String ( Plat f ormRENRhoN) ; 

RDotEdit->Text  =  String (PlatfonnRENRhoRDot*3 600) ; 
EDotEdit“>Text  =  String (PlatfonnRENRhoEDot*3 600) ; 
NDotEdit->Text  =  String (Plat formRENRhoNDo t*3 600) ; 
RDotDotEdit->Text  =  String (PlatfonnRENRhoRDotDot*1000 ) ; 
EDotDotEdit->Text  =  String(PlatfonnRENRhoEDotDot*1000); 
NDotDotEdit->Text  =  String (Plat formRENRhoNDo tDot*1000 ) ; 
ThetaGEdit->Text  =  String (ThetaGInRadians  *  RADTODEGREES) ; 

Z******************************************/ 

/*  PRINT  OUT  ALL  ERROR  MESSAGES  */ 

/******★****★*************★****************/ 

CreateDisplayText (ErrorList/  Errors) ; 
if  (ErrorList . TotalErrors ( ) ! =0 ) 

{ 

ErrorMemoBoX“>Lines->Clear ( ) ; 

ErrorMenioBox->LineS‘->Add ( "THERE  ARE  ERRORS.  .  . " )  ; 
for  (i  =  0;  i<ErrorList , TotalErrors () ;  i++) 
ErrorMeitioBox->Lines->Add (Errors  [i]  )  ; 

} 

else 

{  ErrorMeinoBox->Lines->Clear(); 

ErrorMemoBox->Lines->Add ( "No  Errors ..."); 

} 


} 
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E.8  TargetSatelliteForm.cpp 


/*  MODULE  NAME:  TargetSatelliteForm.cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  November  17, 1998  */ 
/*  */ 
/*  PURPOSE:  This  is  the  Form  which  can  be  used  to  test  the  modules  */ 
/*  created  in  TargetSatellite.cpp,  This  form  */ 
/*  takes  all  the  inputs  to  evaluate  a  single  satellite  */ 
/*  ephemeris  against  a  single  airborne  platform,  and  */ 
/*  determines  the  azimuth  and  elevation  of  the  satellite  */ 
/*  with  respect  to  the  ABL  laser  platform.  */ 
/*  */ 
/*  COMPILER:  Borland  0+4-  BuilderS  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/**********★*********★★***★★************★★****★******************************/ 

/****★★*★****★***********★★*★*★★★*/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/*****★*******************★*★****★/ 

# inc lude  < vc 1 . h> 

#pragma  hdrstop 

#pragma  package ( smart_init ) 

#pragma  resource  ’'*.dfm" 

/*★******************★★**★********/ 

/*  USER-BUILT  LIBRARIES  */ 

/**★********★*★★*★****.****★**★*★*★/ 

#include  "TimeModules  .h*' 

# include  " LaserCons tant s . h " 

#include  "ErrorStructure .h" 

# include  ” TargetSatel li teForm . h ” 

#include  "Aircraft.h” 

#include  " Satellite. h" 

# inc lude  "EvaluateEphemerisModules . h" 

# include  " Target Satellite.h" 

#include  "TargetPlatform.h" 

# inc lude  "TLEInput .h” 

/******************★**************/ 

/*  C  SPECIFIC  LIBRARIES  */ 

/*********************************/ 

#include  <stdio.h> 

# inc lude  <stdlib.h> 

# include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

/*★****★************★★**********/ 

/*  CREATE  THE  FORM  */ 

/***********★************★******/ 

TForml  *Forml ; 

_ fastcall  TForml : -.TForml  (TComponent*  Owner) 

:  TForm ( Owner ) 

{ 

} 

/★*****★**********★***********★************************/ 

/*  THIS  PROCURE  HANDLES  THE  BUTTON  TO  ACTUALLY  RUN  */ 

/*  THE  FINDING  OF  THE  AZIMUTH  AND  ELEVATION  */ 

/**************★**********★**************************** ^ 
void _ fastcall  TForml : :EvaluateButtonClick (TObject  ^Sender) 
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Errors  true  t ur e  Err orL i s  t ; 

ErrorStructure  *ErrorPtr=&ErrorList;  /*  A  POINTER  TO  ERRORLIST  */ 
Aircraft*  ABLPlatform; 

ABLPlatform  =  new  Aircraft; 

Satellite*  Sat; 


Sat 

=  new  Satellite; 

char 

Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 

char 

buff [MAXNAMELENGTH] ; 

double 

Ref erenceHour ; 

/**★***★****★****************/ 

double 

Ref erenceMinute ; 

/*  THE  REFERENT  ANGLE 

*/ 

double 

ReferenceSecond; 

/*  OF  THETA  G  IS  KNOWN  AS 

*/ 

double 

Re  f ModJul i anDa te ; 

/*  THE  REFERENCE  ANGLE  IN 

*/ 

double 

ThetaGInRadians ; 

/★************★**************/ 

double 

*ThetaPtr  =  ScThetaGInRadians 

; 

int 

CalcYear; 

int 

CalcMonth; 

int 

CalcDay; 

int 

CalcHour ; 

int 

CalcMinute; 

double 

CalcSecond; 

int 

i; 

double  JulianDate; 

double  *JulianDatePtr  =  &JulianDate; 
double  SatECIRhoX; 

double  *SatECIRhoXPtr  =  ficSatECIRhoX; 
double  SatECIRhoY; 

double  *SatECIRhoYPtr  =  ScSatECIRhoY; 
double  SatECIRhoZ; 

double  *SatECIRhoZPtr  =  &SatECIRhoZ; 
double  SatECIRhoXDot ; 

double  *SatECIRhoXDotPtr  =  &SatECIRhoXDot ; 
double  SatECIRhoYDot; 

double  *SatECIRhoYDotPtr  =  &SatECIRhoYDot ; 
double  SatECIRhoZDot; 

double  *SatECIRhoZDotPtr  =  &SatECIRhoZDot ; 
double  SatECIRhoXDotDot; 

double  *SatECIRhoXDotDotPtr  =  &SatECIRhoXDotDot; 
double  SatECIRhoYDotDot; 

double  *SatECIRhoYDotDotPtr  =  &SatECIRhoYDotDot ;  • 
double  SatECIRhoZDotDot ; 

double  *SatECIRhoZDotDotPtr  ==  &SatECIRhoZDotDot ; 
double  SatRENRhoR; 

double  *SatRENRhoRPtr  =  SeSatRENRhoR; 
double  SatRENRhoE; 

double  *SatRENRhoEPtr  =  &SatRENRhoE; 
double  SatRENRhoN; 

double  *SatRENRhoNPtr  =  &SatRENRhoN; 
double  SatRENRhoRDot ; 

double  *SatRENRhoRDotPtr  =  fieSatRENRhoRDot ; 
double  SatRENRhoEDot ; 

double  *SatRENRhoEDotPtr  =  &SatRENRhoEDot ; 
double  SatRENRhoNDot; 

double  *SatRENRhoNDotPtr  =  &SatRENRhoNDot ; 
double  SatRENRhoRDotDot; 

double  *SatRENRhoRDotDotPtr  =  &SatRENRhoRDotDot ; 
double  SatRENRhoEDotDot; 

double  *SatRENRhoEDotDotPtr  =  &SatRENRhoEDotDot ; 
double  SatRENRhoNDot Dot; 

double  *SatRENRhoNDotDotPtr  =  SeSatRENRhoNDotDot ; 
double  PlatformECIRhoX; 

double  *PlatformECIRhoXPtr  =  &PlatformECIRhoX; 
double  PlatformECIRhoY; 
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double  *PlatfonnECIRhoYPtr  =  &Platf ormECIRhoY; 
double  PlatformECIRhoZ; 

double  ^PlatformECIRhoZPtr  =  ficPlatformECIRhoZ; 
double  PlatformECIRhoXDot ; 

double  *PlatfonnECIRhoXDotPtr  =  &PlatformECIRhoXDot; 
double  PlatformECIRhoYDot; 

double  *PlatformECIRhoYDotPtr  =  &Platf ormECIRhoYDot ; 
double  PlatformECIRhoZDot; 

double  *PlatfonTiECIRhoZDotPtr  =  ScPlatformECIRhoZDot ; 
double  PlatformECIRhoXDotDot; 

double  *PlatfonnECIRhoXDotDotPtr  =  &PlatformECIRhoXDotDot 
double  PlatformECIRhoYDotDot ; 

double  *PlatformECIRhoYDotDotPtr  =  &PlatformECIRhoYDotDot 
double  PlatformECIRhoZDotDot; 

double  *PlatformECIRhoZDotDotPtr  =  ScPlatformECIRhoZDotDot 
double  PlatfonnRENRhoR; 

double  *PlatformRENRhoRPtr  =  ficPlatformRENRhoR; 
double  PlatformRENRhoE; 

double  *PlatformRENRhoEPtr  =  &PlatfonnRENRhoE; 
double  PlatformRENRhoN; 

double  *PlatformRENRhoNPtr  =  &PlatformRENRhoN; 
double  PlatformRENRhoRDot; 

double  *PlatformRENRhoRDotPtr  =  &PlatformRENRhoRDot ; 
double  PlatformRENRhoEDot ; 

double  *PlatfonnRENRhoEDotPtr  =  &PlatformRENRhoEDot ; 
doub 1 e  P 1 a t  f  ormRENRhoNDo t ; 

double  *PlatformRENRhoNDotPtr  =  &P la t f ormRENRhoNDo t; 
double  PlatformRENRhoRDotDot; 

double  *PlatformRENRhoRDotDotPtr  =  &PlatformRENRhoRDotDot 
double  PlatformRENRhoEDotDot; 

double  *PlatformRENRhoEDotDotPtr  =  &PlatfonnRENRhoEDotDot 
double  PlatformRENRhoNDotDot; 

double  *PlatformRENRhoNDotDotPtr  =  ScPlatformRENRhoNDotDot 
double  ECItoRENMatrixll ; 

double  *ECItoRENMatrixllPtr  =  &ECItoRENMatrixll ; 
double  ECItoRENMatrixl2 ; 

double  *ECItoRENMatrixl2Ptr  =  &ECItoRENMatrixl2 ; 
double  ECItoRENMatrixll; 

double  *ECItoRENMatrixl3Ptr  =  &ECItoRENMatrixl3 ; 
double  ECItoRENMatrixll ; 

double  *ECItoRENMatrix21Ptr  =  &ECItoRENMatrix21 ; 
double  ECItoRENMatrixll ; 

double  *ECItoRENMatrix22Ptr  =  &ECItoRENMatrix22 ; 
double  ECItoRENMatrixll; 

double  *ECItoRENMatrix23Ptr  =  &ECItoRENMatrix23 ; 
double  ECItoRENMatrixll ; 

double  *ECItoRENMatrix31Ptr  =  &ECItoRENMatrix31 ; 
double  ECItoRENMatrixll ; 

double  *ECItoRENMatrix32Ptr  =  &ECItoRENMatrix32 ; 
double  ECItoRENMatrixll ; 

double  *ECItoRENMatrix33Ptr  =  &ECItoRENMatrix33 ; 


/******** ★**★********★************************/ 

/*  GET  AIRCRAFT  POSITION  INFORMATION  */ 

/******★**★*******★**★*********★**************/ 
ABLPlatform~>SetAltitude (AltitudeEdit->Text .ToDouble ( ) ) ; 
strcpy (buf f , HemisphereEdit->Text . c_str ( ) ) ; 
if  (  ( !  (strcmp{buff ,  ’’N" )  )  )  ||  ( !  (strcmp  (buf  f ,  "n")))) 

ABLPlatform->SetLatitudeHemi sphere (0) ; 
else  if  { ( ! (strcmp(buff ,  "S”)))  ||  { ! (strcmp (buf f ,  "s")))) 
ABLPlatform->SetLatitudeHemi sphere (1) ; 

else 


{  ErrorList . AddError ( "EvaluateEphemerisForm" , 

"Lat  Hemisphere  must  be  north(N)  or  south(S)'\ 
1); 

} 

ABLPlatf orm“>SetLatitudeDegree (LatitudeDegreeEdit“>Text . ToDouble ( ) ) ; 
ABLPlatform->SetLatitudeMinute (LatitudeMinuteEdit“>Text .ToDouble ( ) ) ; 
ABLPlatf orm->SetLatitudeSecond (LatitudeSecondEdit->Text . ToDouble ()); 
ABLPlatform->SetLongitudeDegree (LongitudeDegreeEdit~>Text, ToDouble { ) ) ; 
ABLPlatf orm“>SetLongitudeMinute (LongitudeMinuteEdit“>Text . ToDouble ( ) ) ; 
ABLPlatform-'>SetLongitudeSecond (LongitudeSecondEdit“>Text. ToDouble ( ) ) ; 
ABLPlatf orm->SetAltitude (AltitudeEdit->Text. ToDouble ( ) ) ; 

ABLPlatf orm->SetVelocityX (VelocityXEdit’->Text . ToDouble ()); 
ABLPlatform->SetVelocityY(VelocityYEdit->Text .ToDouble ( ) ) ; 

ABLPlatf orm->SetVelocityZ (VelocityZEdit->Text. ToDouble { ) ) ; 

/****************★★★★************★******★*****/ 

/*  GET  GREENWICH  MERIDIAN  REFERENCE  */ 

/*******************★*********★★********★**★**/ 

ReferenceHour  =  Ref erenceHourEdit->Text . ToDouble () ; 

ReferenceMinute  =  Ref erenceMinuteEdit->Text .ToDouble () ; 

ReferenceSecond  =  Ref erenceSecondEdit”>Text .ToDouble () ; 
RefModJulianDate  =  RefModJulianDateEdit->Text.ToDouble( ) ; 

/★********************************** **********/ 

/*  GET  SATELLITE  EPHEMERIS  INFORMATION  */ 

/*********************************************/ 
Sat->SetSSCNumber(SSCEdit->Text.ToInt 0 ) ; 
strcpy (buf f , ClassEdit->Text . c_str ( ) ) ; 

Sat->SetSecurityClass (buf f ) ; 
strcpy (buf f , IntIDEdit->Text.c_str ( ) ) ; 

Sat->SetInternationalID (buf f ) ; 

Sat->SetEpochYear (EpochYearEdit”>Text .ToInt (>); 
Sat->SetEpochDay(EpochDayEdit”>Text .ToDouble ( ) ) ; 
Sat->SetRevSquared(RevSquaredEdit~>Text .ToDouble ()); 

Sat->SetRevCubed (RevCubedEdit“>Text . ToDouble ()); 

Sat->SetBStarDrag (BStarEdit->Text .ToDouble ( ) ) ; 

Sat->SetEphemerisType (EphemerisTypeEdit->Text .Toint ( ) ) ; 
Sat->SetElementSetN\imber (ElSetEdit“>Text , Toint ()); 

Sat-’>SetInclination (InclinationEdit->Text. ToDouble ( ) ) ; 
Sat->SetRightAscens ion (RightAscensionEdit->Text .ToDouble ( ) ) ; 
Sat->SetEccentricity(EccentricityEdit->Text .ToDouble ( ) ) ; 
Sat“>SetArgumentOf Perigee ( ArgumentOf PerigeeEdit->Text . ToDouble ( ) ) ; 
Sat->SetMeanAnomaly (MeanAnomalyEdi t->Text . ToDouble ( ) ) ; 
Sat“>SetMeanMotion (MeanMotionEdit->Text .ToDouble () ) ; 

Sat->SetRevAtEpoch (RevNumberEdit->Text . Toint ( ) ) ; 

/*****★********************★************★*****/ 

/*  GET  CURRENT  TIME  */ 

y*********************************************/ 

CalcYear  =  CalcYearEdit->Text .Toint () ; 

CalcMonth  =  CalcMonthEdit~>Text .Toint {) ; 

CalcDay  =  CalcDayEdit->Text . Toint () ; 

CalcHour  =  CalcHourEdit->Text .Toint () ; 

CalcMinute  =  CalcMinuteEdit->Text .Toint () ; 

CalcSecond  =  CalcSecondEdit“>Text .ToDouble (); 


/**********************************************★**★*/ 
/*  FIND  THE  CURRENT  ANGLE  OF  THETA  G  AT  THE  */ 

/*  TIME  OF  PROPAGATION  */ 

/**********************★**★*★***********************/ 
ThetaGInRadians  =  0 ; 

FindThetaG (ReferenceHour , 
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Ref erenceMinute , 
Ref erence Second , 
Re  f Mod Ju 1 i anDa t e , 
CalcYear , 
CalcMonth, 
CalcDay, 

CalcHour , 
CalcMinute, 
CalcSecond, 
*ThetaPtr , 
*ErrorPtr) ; 


/*********************★******************★********★*/ 
/*  CONVERT  THE  PROPAGATION  TIME  TO  A  JULIAN  DATE  */ 
/*  THAT  CAN  BE  RECOGNIZED  BY  "TargetSatellite” .  */ 

/*************★*********★***★*****★*****************/ 
JulianDate  =  0,0; 

ConvertCalenderToJulian (CalcYear , 

CalcMonth, 

CalcDay, 

CalcHour , 

CalcMinute, 

CalcSecond, 

*JulianDatePtr , 

*ErrorPtr) ; 

/*★★*****★*****************************★*★**★*★*****/ 
/*  EVALUATE  WHETHER  OR  NOT  THE  SATELLITE  IS  */ 

/*  CURRENTLY  WITHIN  VIEW  OF  THE  PLATFORM  */ 

/*★*★****★*************★*★***************★*★********/ 
TargetPlatf orm ( *ABLPlatf orm, 

*ThetaPtr , 

JulianDate, 

*Platfo2nnECIRhoXPtr, 

*PlatformECIRhoYPtr, 

*PlatfonnECIRhoZPtr, 

*Plat f ormECIRhoXDotPtr , 

*Plat f ormECIRhoYDotPtr , 
*PlatformECIRhoZDotPtr, 

*Platf ormECIRhoXDotDotPtr , 

*Platf ormECIRhoYDotDotPtr , 

*Platf ormECIRhoZDotDotPtr , 
*PlatfonnRENRhoRPtr, 
*PlatfonnRENRhoEPtr , 
*PlatformRENRhoNPtr, 

*Platf ormRENRhoRDotPtr , 
*PlatformRENRhoEDotPtr, 
*PlatformRENRhoNDotPtr, 
*PlatfonnRENRhoRDotDotPtr , 

*Platf ormRENRhoEDotDotPtr , 

*PlatformRENRhoNDotDotPtr, 

*ECItoRENMatrixllPtr, 

*ECItoRENMatrixl2Ptr, 

*ECItoRENMatrixl3Ptr, 

*ECI toRENMatr ix2 IPtr , 
*ECItoRENMatrix22Ptr, 
*ECItoRENMatrix23Ptr, 

*ECI toRENMatrix3 IPtr , 

*ECI toRENMatrix3  2Ptr , 

*ECI toRENMatr ix3  3  Ptr , 

*ErrorPtr) ; 


/**************★*******★***************★************/ 
/*  EVALUATE  WHETHER  OR  NOT  THE  SATELLITE  IS  */ 
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/*  CURRENTLY  WITHIN  VIEW  OF  THE  PLATFORM  */ 

Z***************************************************/ 

TargetSatellite (*Sat, 

JulianDate, 

ECItoRENMatrixll, 

ECItoRENMatrixl2 , 
ECItoRENMatrixl3, 

ECItoRENMatrix21 , 

ECItoRENMatrix22 , 
ECItoRENMatrix23, 

ECI toRENMatr ix3 1 , 

ECItoRENMatrix32 , 
ECItoRENMatrix33, 

*SatECIRhoXPtr, 

*SatECIRhoYPtr, 

*SatECIRhoZPtr, 

*SatECIRhoXDotPtr, 

*SatECIRhoYDotPtr, 

*SatECIRhoZDotPtr, 

*SatECIRhoXDotDotPtr, 

*SatECIRhoYDotDotPtr, 

*SatECIRhoZDotDotPtr, 

*SatRENRhoRPtr, 

*SatRENRhoEPtr, 

*SatRENRhoNPtr, 

♦SatRENRhoRDotPtr , 
*SatRENRhoEDotPtr, 

*  Sa tRENRhoNDo  tP tr , 

*  SatRENRhoRDo tDo tPtr , 
*SatRENRhoEDotDotPtr, 
*SatRENRhoNDotDotPtr, 

*ErrorPtr) ; 


/***********★***************************************/ 

/*  OUTPUT  THE  TEST  PARAMETERS  WHICH  MONITOR  THE  */ 

/*  CALCULATIONS  IN  "TargetSatellite" .  */ 

/★*★***********★***********★***************★******** ^ 
XEdit->Text  =  String (SatECIRhoX) ; 

YEdit”>Text  =  String (SatECIRhoY) ; 

ZEdit”>Text  =  String (SatECIRhoZ) ; 

XDotEdit->Text  =  String ( SatECIRhoXDot ) ; 
YDotEdit“>Text  =  String (SatECIRhoYDot) ; 
ZDotEdit->Text  =  String (SatECIRhoZDot) ; 
XDotDotEdit~>Text  =  String (SatECIRhoXDotDot *1000 . 0) ; 
YDotDotEdit->Text  =  String(SatECIRhoYDotDot*1000.0); 
ZDotDotEdit->Text  =  String (SatECIRhoZDotDot*1000 . 0) ; 
REdit->Text  =  String (SatRENRhoR) ; 

EEdit->Text  =  String (SatRENRhoE) ; 

NEdit->Text  =  String(SatRENRhoN); 

RDotEdit-->Text  =  String  (SatRENRhoRDo t)  ; 
EDotEdit->Text  =  String ( SatRENRhoEDot ) ; 
NDotEdit->Text  -  String (SatRENRhoNDot) ; 
RDotDotEdit->Text  =  String (SatRENRhoRDotDot*1000 . 0) ; 
EDotDotEdit“>Text  =  String ( SatRENRhoEDotDot* 1000 . 0) ; 
NDotDotEdit->Text  =  String (SatRENRhoNDotDot *1000 . 0) ; 

/**************************★*************** y 

/*  PRINT  OUT  ALL  ERROR  MESSAGES  */ 

/**★★★★★****★**★**★************************/ 
CreateDisplayText (ErrorList,  Errors) ; 
if  (ErrorList .TotalErrors 0 !=0) 

{ 

ErrorMemoBox->Lines->Clear ( ) ; 
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ErrorMemoBox->Lines->Add  ( “THERE  ARE  ERRORS...''); 
for  (i  =  0;  i<ErrorList . TotalErrors ( ) ;  i++) 
ErrorMemoBox“>Lines->Add (Errors [i] ) ; 

} 

else 

{  ErrorMemoBox->Lines->Clear ( ) ; 

ErrorMemoBox->Lines->Add ( "No  Errors ..."); 

} 


) 


/★*****★*★********★*********★★★*********************/ 

/*  THIS  EVENT  HANDLER  PROCEDURE  HANDLES  THE  BUTTON*/ 

/*  THAT  CAN  LOAD  A  TEST  CASE  FROM  A  FILE  FOR  LATER*/ 

/*  EXECUTION  */ 

/*★********★*★**★******★***★*********★****★*********/ 

void _ fastcall  TForml : :FileButtonClick (TObject  *Sender) 

{ 

Errors true ture  ErrorList; 

SatStructure  *SatArray  =  new  SatStructure; 

char  Errors EMAXERRORS] [MAXMESSAGELENGTH] ; 

int  i  ; 

ErrorStructure  *ErrorPtr=&:ErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 

char  FileNameEMAXNAMELENGTH]  =  " 


/***★★*****★*******★★**************★*★**★***********/ 

/*  GET  NAME  OF  FILE  TO  READ  TEST  CASE  FROM  */ 

/**★*★*********★*******★**★***********★*************/ 
strepy  (FileNaitie,FileEdit->Text  .c_str  ( )  )  ; 

/*****★************★*★★****************★***★*★******/ 

/*  READ  ALL  SATELLITES  FROM  THE  FILE,  AND  USE  THE  */ 

/*  FIRST  SATELLITE  IN  THE  FILE  AS  THE  TEST  CASE  */ 
/********■*■★*********************★*******************/ 

ReadTLEFile (FileName, 

*SatArray, 

*ErrorPtr) ; 

/*******************************★**★****************/ 

/*  NOTE  THE  Sat[0]  IS  THE  FIRST  SATELLITE  IN  THE  */ 

/*  FILE  */ 

/*************************************** *.***********/ 

SSCEdit“>Text  =  String (SatArray“>Sat [ 0] . GetSSCNumber ( ) ) ; 

ClassEdit”>Text  =  String (SatArray->Sat [0] .GetSecurityClass ()) ; 
IntIDEdit“>Text  =  String (SatArray->Sat [0] .GetInternationallD ( ) ) ; 

EpochYearEdi t’->Text  =  String  ( SatArray->Sat  [  0  ]  .  GetEpochYear  ()); 
EpochDayEdit->Text  =  String (double (SatArray->Sat [0] .GetEpochDay ( ) ) ) ; 
RevSquaredEdit->Text  =  String (double (SatArray->Sat [0] . GetRevSquared ( ) ) ) ; 
RevCubedEdit->Text  =  String ( double ( SatArray“>Sat [ 0 ] . GetRevCubed ( ) ) ) ; 
BStarEdit->Text  =  String (double (SatArray“>Sat [ 0 ] .GetBStarDragO)); 
EphemerisTypeEdi t“>Text  =  String ( SatArray->Sat [ 0 ] . GetEphemerisType ( ) ) ; 
ElSetEdit''>Text  =  String (SatArray“>Sat [0] .GetElementSetNumber ( ) ) ; 
InclinationEdit->Text  =  String (double (SatArray->Sat [0] .Getinclination ( ) ) ) ; 
RightAscens ionEdi t->Text  =  String ( double ( SatArray- 

>Sat[0] .GetRightAscension ( ) ) ) ; 
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string { double ( SatArray- 


EccentricityEdit“>Text 
>Sat [ 0 ] . GetEccentricity ( ) ) ) ; 

ArguinentOfPerigeeEdit->Text  =  String (double ( Sat Array- 

>Sat[0] .GetArgumentOfPerigee ( )  )  )  ; 

MeanAno]:nalyEdit”>Text  =  String  (double  (SatArray->Sat  [0]  .GetMeanAnomaly  ( )  )  )  ; 
MeanMotionEdit->Text  =  String (double (SatArray->Sat [0] . GetMeanMotion ( ) ) ) ; 
RevNuinberEdit~>Text  =  String ( SatArray“>Sat [ 0 ] . GetRevAtEpoch ( ) ) ; 


/*****★*★★**★*★★*★********************************** y 

/*  DISPLAY  ALL  ERRORS  */ 

/***************************************************/ 
CreateDisplayText (ErrorList,  Errors) ; 
if  (ErrorList .TotalErrors ( ) ! =0) 

{ 

ErrorMemoBox“>LineS“>Clear ( ) ; 

ErrorMemoBox->Lines->Add( "THERE  ARE  ERRORS. . . " ) ; 
for  (i  =  0;  i<ErrorList . TotalErrors () ;  i++) 
ErrorMemoBox->Lines->Add(Errors [i] ) ; 

} 

else 

{  ErrorMemoBoX"’>Lines~>Clear  ( )  ; 

ErrorMemoBox->Lines->Add ( "No  Errors. . . " ) ; 

} 

} 
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E.9  TestTargetLaserForm.cpp 


/*  MODULE  NAME:  TargetLaserForm. cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  November  17,  1998  */ 
/*  */ 
/*  PURPOSE:  This  is  the  Form  which  can  be  used  to  test  the  modules  */ 
/*  created  in  TargetLaser . cpp .  This  form  */ 
/*  takes  all  the  inputs  to  evaluate  a  single  laser  */ 
/*  trajectory  in  the  REN  frame  given  the  azimuth  (degrees  */ 
/*  east  of  north)  and  elevation  (degrees  above  horizon)  */ 
/*  of  the  laser  turret.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  Builder 3  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/******************★*********★*★*********************************★***********/ 

/***★************************★*★**/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/*★*********★*★*★★*****★**********/ 

# inc lude  < vc 1 . h> 

#pragma  hdrstop 

#pragma  package ( smart_init ) 

#pragma  resource  ''*.dfm’' 

/*******************★******★*★**★*/ 

/*  USER-BUILT  LIBRARIES  */ 

/*★*******★**★**★***★*****★*******/ 

#include  "LaserConstants .h" 
tinclude  "ErrorStructure.h” 
tinclude  "TestTargetLaserForm.h" 

#include  "TargetLaser .h” 

/***************★****★**********★*/ 

/*  C  SPECIFIC  LIBRARIES  */ 

/**★*★*****★**★**********★***★*★**/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

/**********************★**★■***★*/ 

/*  CREATE  THE  FORM  */ 

/★***★*★★*******★*★★****★*****★*/ 

TForml  *Forml; 

// - - - 

_ fastcall  TForml :: TForml (TComponent*  Owner) 

:  TForm ( Owner ) 

{ 

} 

/******************************************************/ 

/*  THIS  PROCURE  HANDLES  THE  BUTTON  TO  ACTUALLY  RUN  */ 

/*  THE  ROUTINE  TO  FIND  THE  LASER  PARAMETERS.  */ 

/★*****************★********★********★******★*****★****/ 

void _ fastcall  TForml : :EvaluateButtonClick(TObject  ^Sender) 

{ 

Error S true  ture  ErrorLi s  t ; 

Errors true ture  *ErrorPtr=&ErrorList;  /*  A  POINTER  TO  ERRORLIST  */ 

char  Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 

int  i ; 

double  AzimuthInDegrees ; 
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double  AzimuthDot; 
double  AzimuthDotDot ; 
double  ElevationInDegrees; 
double  ElevationDot ; 
double  ElevationDotDot; 
double  LaserRENRhoR; 

double  *LaserRENRhoRPtr  =  &LaserRENRhoR; 
double  LaserRENRhoE; 

double  *LaserRENRhoEPtr  =  &LaserRENRhoE; 
double  LaserRENRhoN; 

double  *LaserRENRhoNPtr  =  ScLaserRENRhoN; 
double  LaserRENRhoRDot; 

double  *LaserRENRhoRDotPtr  =  &LaserRENRhoRDot ; 
doubl e  Las erRENRhoEDo t ; 

double  * Las erRENRhoEDo tPtr  =  &La s erRENRhoEDo t; 
double  LaserRENRhoNDot ; 

double  *LaserRENRhoNDotPtr  =  &LaserRENRhoNDot ; 
double  LaserRENRhoRDotDot ; 

double  *LaserRENRhoRDotDotPtr  =  ScLaserRENRhoRDotDot ; 
double  Las erRENRhoEDo tDot; 

double  *LaserRENRhoEDotDotPtr  =  &LaserRENRhoEDotDot ; 
double  LaserRENRhoNDotDo^t  ; 

double  *LaserRENRhoNDotDotPtr  =  ScLaserRENRhoNDotDot ; 


/***************************************★***★*/ 

/*  GET  CURRENT  TIME  '  */ 

/*********************************************/ 

AzimuthInDegrees  =  AzimuthEdit~>Text . ToDouble ( ) ; 
ElevationInDegrees  =  ElevationEdit-“>Text  .ToDouble  ()  ; 
AzimuthDot  =  AzimuthDotEdit->Text .ToDouble 0 ; 
ElevationDot  =  ElevationDotEdit->Text .ToDouble () ; 
AzimuthDotDot  =  AzimuthDotDotEdit“>Text .ToDouble () ; 
ElevationDotDot  =  ElevationDotDotEdit->Text .ToDouble ( ) 


/*★*★******★*★*********★****************************/ 
/*  EVALUATE  WHETHER  OR  NOT  THE  SATELLITE  IS  */ 

/*  CURRENTLY  WITHIN  VIEW  OF  THE  PLATFORM  */ 

/********************************************★****★*/ 
TargetLaser (AzimuthInDegrees , 

ElevationInDegrees , 

AzimuthDot, 

ElevationDot , 

AzimuthDotDot , 

ElevationDotDot , 

*LaserRENRhoRPtr , 

*LaserRENRhoEPtr , 

*LaserRENRhoNPtr , 

*LaserRENRhoRDotPtr , 

*LaserRENRhoEDotPtr , 

*LaserRENRhoNDotPtr , 

* LaserRENRhoRDot Do tPtr , 

*Las erRENRhoEDo tDotPtr , 

*LaserRENRhoNDotDo tPtr , 

*ErrorPtr) ; 

/**★*******★*★******★************************★******/ 
/*  OUTPUT  THE  TEST  PARAMETERS  WHICH  MONITOR  THE  */ 
/*  CALCULATIONS  IN  "TargetSatellite" .  */ 

/***★****★**★**★*******★★*******★********★★***★*★★**/ 
REdit->Text  =  String (LaserRENRhoR) ; 


385 


EEdit->Text  =  String ( Las erRENRhoE ) ; 

NEdit“>Text  =  String (Las erRENRhoN) ; 

RDotEdit->Text  =  String (Laser RENRhoRDot) ; 
EDotEdit->Text  =  String (LaserRENRhoEDot) ; 
NDotEdit’->Text  =  String  (Las erRENRhoNDot)  ; 
RDotDotEdit->Text  =  String (LaserRENRhoRDotDot) ; 
EDotDotEdit->Text  =  String (LaserRENRhoEDotDot ) ; 
NDotDotEdit->Text  =  String (LaserRENRhoNDotDot) ; 

/******★***★★*★**★**★**********************/ 

/*  PRINT  OUT  ALL  ERROR  MESSAGES  */ 

/*******★*★★******★**************★***★*****/ 
CreateDisplayText (ErrorList ;  Errors) ; 
if  (ErrorList.TotalErrors 0 !=0) 

{ 

ErrorMemoBox->Lines->Clear ( ) ; 

ErrorMeinoBox->Lines->Add( "THERE  ARE  ERRORS. . . " ) ; 
for  (i  =  0;  i<ErrorList . TotalErrors ( ) ;  i++) 
ErrorMemoBox->Lines->Add (Errors [i] ) ; 

} 

else 

{  ErrorMemoBox“>LineS“>Clear ( ) ; 

ErrorMemoBox-~>Lines->Add  ( "No  Errors 

} 


} 
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E.10  TimeTestForm.cpp 


/*  MODULE  NAME:  TimeTestForm.cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  July  25,  1998  */ 
/*  */ 
/*  PURPOSE:  This  is  the  Form  which  can  be  used  to  test  the  modules  */ 
/*  created  in  TimeModules . cpp .  */ 
/*  */ 
/*  COMPILER:  Borland  C++  Builder 3  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/★*********★****************************★★*★★★★******★**★**★★**★★***********★/ 

/*********************************/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/************★*****★***★******★**★/ 

#include  <vcl.h> 

#pragma  hdrstop 

#pragma  package ( smar t_ini t ) 

#pragma  resource  ''*.dfm" 

/**************★******************/ 

/*  USER-BUILT  LIBRARIES  */ 

/***************★****★************/ 

# include  ''TimeTestForm.h'' 

#include  "TimeModules .h" 

#include  "LaserConstants .h” 

#include  "ErrorStructure .h" 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 
ttinclude  <iostream.h> 

# include  <conio.h> 

/***********★****★**************/ 

/*  CREATE  THE  FORM  */ 

/*******************************/ 

TForml  *Forml; 


// - 

_ fastcall  TForml :: TForml (TComponent*  Owner) 

:  TForm( Owner) 

{ 

} 

// - 


void  _ fastcall  TForml :: Calc JulianButtonClick(TObject  *Sender) 

{ 

/**★***★★**★*********★★********************************/ 

/*  HANDLE  THE  CONVERT  TO  JULIAN  DATE  PUSH-BUTTON  */ 

/*  ON  MOUSE  CLICK  */ 

/***★*************★★********★*★★**********★*★★******★**/ 

ErrorStructure  ErrorList; 

int  CYear; 

int  CMonth; 

int  CDay; 

int  CHour; 

int  CMinute; 
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double  CSecond; 

double  JulianDate; 

double  *JulianDatePtr  =  ScJulianDate; 

char  Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 

int  i ; 

ErrorStructure  *ErrorPtr=&ErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 

CYear  =  CalenderYearEdit”>Text .Toint ( ) ; 

CMonth  =  CalenderMonthEdit~>Text .Toint ( ) ; 

CDay  =  CalenderDayEdit->Text .Toint ( ) ; 

CHour  =  CalenderHourEdit->Text . Toint ( ) ; 

CMinute  =  CalenderMinuteEdit->Text .Toint () ; 

CSecond  =  CalenderSecondEdit'->Text  .ToDouble  ( )  ; 

/*******************************★******/ 

/*  CALCULATE  JULIAN  DATE  AND  DISPLAY  */ 
/**★****★******★***★**********★********/ 

ConvertCalenderTo Julian (CYear, 

CMonth, 

CDay, 

CHour, 

CMinute, 

CSecond, 

* Jul ianDatePtr , 

*Erro.rPtr)  ; 

JulianDateEdit“>Text  =  String (JulianDate); 


/**★**********************★************/ 

/*  SHOW  ERRORS  ON  SCREEN  */ 

/****************★**★**★***************/ 

CreateDisplayText (ErrorList,  Errors) ; 
if  (ErrorList .TotalErrors 0 !=0) 

{ 

ErrorMemoBox~>Lines“>Clear ( ) ; 

ErrorMemoBox-'>LineS“>Append ( "THERE  ARE  ERRORS.  .  .  " )  ; 
for  (i  =  0;  i ! =ErrorList . TotalErrors () ;  i++) 
ErrorMemoBox“>Lines->Append( Errors [i] ) ; 

} 

else 

{  ErrorMemoBox“>Lines->Clear(); 

ErrorMemoB6x->Lines->Add( "No  Errors ..."); 

} 

} 


/******************************************************/ 

/*  HANDLE  THE  CONVERT  TO  JULIAN  DATE  PUSH-BUTTON  */ 

/*  ON  MOUSE  CLICK  */ 

/****★*★*********★********★*★********★*★**********★*,«,★★/ 

void _ fastcall  TForml : :CalcCalenderButtonClick (TObject  *Sender) 

{ 


ErrorStructure  ErrorList; 

int  CYear  =  0; 

int  *CYearPtr  =  &CYear; 

int  CMonth  =  0; 

int  *CMonthPtr  =  ScCMonth; 

int  CDay  =  0; 

int  *CDayPtr  =  &CDay; 

int  CHour  =  0; 

int  *CHourPtr  =  ScCHour; 
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int  CMinute  =  0; 
int  *CMinutePtr  =  &CMinute; 
double  CSecond  =  0.0; 
double  *CSecondPtr  =  &CSecond; 
double  JulianDate  =  0.0; 

char  Errors  [MAXERRORS]  [MAXMESSAGELENGTH]  ; 
int  i ; 

ErrorStructure  *ErrorPtr=&ErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 

JulianDate  =  JulianDateEdit^>Text .ToDouble ( ) ; 

CYear  =  CalenderYearEdit->Text . Toint ( ) ; 

CMonth  =  CalenderMonthEdit->Text.ToInt 0 ; 

CDay  =  CalenderDayEdit“>Text .Toint 0 ; 

CHour  =  CalenderHourEdit->Text . Toint ( ) ; 

CMinute  =  CalenderMinuteEdit“>Text . Toint {) ; 

CSecond  =  CalenderSecondEdit-->Text  .ToDouble  ( )  ; 

/*********★*★*★****★*★*★*****★*********/ 

/*  CALCULATE  CALENDER  DATE  AND  DISPLAY*/ 
/*****************★********************/ 

ConvertJulianToCalender ( *CYearPtr , 

*CMonthPtr, 

*CDayPtr, 

* CHour Ptr, 

*CMinutePtr, 

*CSecondPtr, 

JulianDate, 

*ErrorPtr) ; 

CalenderYearEdit->Text  =  String (CYear) ; 

CalenderMonthEdit“>Text  =  String (CMonth) ; 

CalenderDayEdit->Text  =  String (CDay) ; 

CalenderHourEdit->Text  =  String (CHour) ; 

CalenderMinuteEdit->Text  =  String (CMinute) ; 

CalenderSecondEdit“>Text  =  String (CSecond) ; 


/*******★★******★******★***************/ 

/*  SHOW  ERRORS  ON  SCREEN  */ 

/******★*★*****************************/ 

CreateDisplayText (ErrorList ,  Errors) ; 
if  (ErrorList .TotalErrors ( ) ! =0) 

{ 

ErrorMemoBox->Lines->Clear ( ) ; 

ErrorMemoBox->LineS“>Append ( "THERE  ARE  ERRORS ..."); 
for  (i  =  0;  i ! =ErrorList .TotalErrors () ;  i++) 
ErrorMemoBox->LineS“>Append (Errors [i] ) ; 

} 

else 

{  ErrorMemoBox->Lines->Clear(); 

ErrorMeinoBox-’>Lines->Add  ( "No  Errors  ..."); 

) 

} 
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E.11  TLETestForm.cpp 


/*  MODULE  NAME:  TLETestForm.cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  August  18;  1998  */ 
/*  */ 
/*  PURPOSE:  This  main  form  module  is  a  test  module  for  the  routines  */ 
/*  which  read  in  the  Two  Line  Element  (TLE)  data  file  */ 
/*  that  holds  all  of  the  satellite  ephemeris  data  for  the  */ 
/*  Predictive  Avoidance  algorithm  that  this  test  module  */ 
/*  supports.  This  is  only  a  test  module,  and  is  not  used  */ 
/*  directly  except  to  test  the  TLE  input  routines.  These  */ 
/*  routines  are  held  mostly  within  the  TLEInput  module.  */ 
/*  NOTE:  This  is  only  part  of  the  C++  code  used  to  make  */ 
/*  this  test  code.  The  rest  is  created  automatically  by  */ 
/*  the  C++  Builders  compiler.  */ 
/*  */ 
/*  */ 
/*  COMPILER:  Borland  C++  Builders  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


/*****************★***★***********************★******************************/ 

/**★*★*****★*****★*★★*************/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/*********************************/ 

# include  <vcl.h> 

#pragma  hdrstop 

#pragma  package ( smar t„ini t ) 

#pragma  resource  ''*.dfm” 

/**★*******★★*★***********★*★*****/ 

/*  USER-BUILT  LIBRARIES  */ 

/******************★★***★*********/ 

# include  "TLETestForm.h" 

#include  "LaserConstants .h” 

#include  "Satellite. h" 

# include  " Errors true ture .h" 

# include  "TLEInput.h" 

/*********★*******★*★**.***********/ 

/*  C  STANDARD  LIBRARIES  */ 

/*****★★********★*****************/ 

#include  <stdio.h> 

#include  <stdlib.h> 

# include  <string.h> 

#include  <iostream.h> 

#include  <conio.h> 

/**************★****************/ 

/*  CREATE  THE  FORM  */ 

/★★*****.****★★******************/ 

TForml  *Forml ; 

_ fastcall  TForml :: TForml (TComponent*  Owner) 

:  TForm ( Owner ) 

{ 

} 

/************************************************************^ 

/*  THIS  PROCEDURE  IS  TIED  TO  A  BUTTON  ON  THE  TLE  TEST  */ 

/*  FORM.  WHEN  CLICKED  WITH  A  MOUSE,  IT  EXECUTES  THE  */ 

/*  READING  OF  A  FILE.  */ 

/**********★•********************************************★**★*/ 
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void  _ fastcall  TForml : :ReadTLEFileButtonClick (TObject  ^Sender) 

{ 

/★★**************★*************★**★***★/ 

/*  VARIABLES  SECTION  */ 

/******★*****************★*★*★*★*******/ 

ErrorStructure  ErrorList; 

SatStructure  *SatArray  =  new  SatStructure; 
char  Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 
int  i; 

ErrorStructure  *ErrorPtr=ScErrorList ;  /*  A  POINTER  TO  ERRORLIST  */ 
char  buff er [MAXMESSAGELENGTH]  =  ”  «; 
char  FileName[MAXNAMELENGTH]  =  ; 


/*★*★★***********★******★*★★************★/ 

/*  RETRIEVE  INPUT  FILE  NAME  FROM  SCREEN  */ 
/**★****★*******★*★*★**★***********★**★**/ 

strcpy (FileName, TLEFileEdit->Text . c_str ( ) ) ; 


/**********************★*********★****★****/ 

/*  READ  FILE  INTO  AN  ARRAY  OF  "Satellite"  */ 

/*  CLASS  OBJECTS  */ 

/****************************★**********★**/ 

ReadTLEFile (FileName, 

* Sat Array, 

*ErrorPtr) ; 

/*************★***★**********************/ 

/*  PRINT  HEADER  TO  MEMO  BOX  */ 

/*********************************★*★****/ 

TLEMemoBox->Lines->Clear ( ) ; 

sprintf  (buffer,  "FILE  NAME:  %s  *****************'' ^ 

FileName) ; 

TLEMemoBoX“>Lines-->Add  (buffer)  ; 

sprintf  (buffer,  "SATELLITES  IN  FILE:  %d  *******************  ^ 
SatArray->NumSats) ; 

TLEMemoBox->Lines->Add (buffer) ; 

/****************************************^ 

/*  LOOP  THROUGH  ARRAY  AND  PRINT  ALL  */ 

/*  DATA  STORED  IN  ARRAY  OF  SATELLITE  */ 

/*  OBJECTS  TO  THE  SCREEN  */ 

/*★**★*★**********★**********************/ 
for  (i=0;  i< Sat Array- >NumSat s ;  i++) 

{  sprintf (buffer ," ***************  BEGIN  SATELLITE  %d  ***************** 

i+1)  ; 

TLEMemoBoX“>Lines->Add (buffer ) ; 

/********************************************* y 

/*  SHOW  ORIGINAL  TLE  LINES  FROM  INPUT  FILE  */ 
/****★★***************★***************★*******/ 

sprintf (buffer,"**************************************************** 
i+1)  ; 

TLEMemoBox->LineS”>Add (buffer) ; 
strcpy(buffer,SatArray->Sat[i] .GetTLELinel ( ) ) ; 

TLEMemoBox->LineS“>Add (buffer) ; 
strcpy(buffer,SatArray->Sat [i] .GetTLELine2 ()); 

TLEMemoBox->Lines->Add (buffer) ; 

sprintf (buffer, "**************************************************** 
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i+1).; 

TLEMemoBox->Lines->Add( buffer) ; 


/***★***★*★*■**************★*******★*****★***★*/ 

/*  NOW  SHOW  INFORMATION  AS  IT  WAS  STORED  IN  */ 

/*  THE  ARRAY  */ 

/****★★*★★★★**★****★★*****★*******************/ 
sprintf  (buffer,  "SSC  Number:  %d'' , 

SatArray->Sat [i] .GetSSCNumber ( ) ) ; 
TLEMemoBox->Lines->Add (buffer ) ; 

sprintf (buffer, "Security  Level:  %s", 

SatArray->Sat [i] .GetSecurityClass ( ) ) ; 
TLEMemoBox- >L ines - >Add (buffer) ; 

sprint f (buffer , "International  ID:  %s", 

SatArray->Sat [i] . GetInternationallD ( ) ) ; 
TLEMemoBox- >L ines ->Add (buffer) ; 

sprintf (buffer, "Epoch  Year:  %d", 

SatArray->Sat [i] . GetEpochYear ( ) ) ; 
TLEMemoBox- >L ines ->Add (buffer) ; 

sprintf (buffer, "Epoch  Day:  %20.10Lf", 

SatArray->Sat [ i ] . GetEpochDay ()); 
TLEMemoBox->Lines->Add (buf f er ) ; 

sprintf (buffer, "Revs /Day  Squared:  %20.10Lf", 

SatArray->Sat [i] . GetRevSquared ( ) ) ; 
TLEMemoBox->Lines->Add (buf fer) ; 

sprintf (buf fer, "Revs /Day  Cubed:  %20.10Lf", 

Sa t Array- >Sat [i] . GetRevCubed ( ) ) ; 

TLEMemoBox ->L ines ->Add (buf fer) ; 

sprintf (buf fer, "BStar  Drag  Coefficient:  %20.10Lf", 
SatArray->Sat [i] .GetBStarDrag ( ) ) ; 
TLEMemoBox->Lines->Add (buffer) ; 

sprintf (buf fer , "Element  Set  Number:  %d" 

SatArray->Sat [i] .GetElementSetNumber ( ) ) ; 
TLEMemoBox->Lines->Add (buffer) ; 

sprintf (buffer, "EphemerisType :  %d" , 

SatArray->Sat [ i ] . GetEphemerisType ( ) ) ; 
TLEMemoBox- >Line  s - >Add (buffer) ; 

sprintf (buffer, " Inclination:  %20 . lOLf " , 

SatArray“>Sat [i] .GetInclination( ) ) ; 
TLEMemoBox- >Lines - > Add (buffer) ; 

sprintf (buf fer , "Right  Ascension:  %20.10Lf", 

SatArray->Sat [i] .GetRightAscension ( ) ) ; 
TLEMemoBox- >L ines ->Add (buffer) ; 

sprintf (buf fer, "Eccentricity:  %20.10Lf", 

SatArray->Sat [i] .GetEccentricity ( ) ) ; 
TLEMemoBox->Lines->Add (buf fer) ; 

sprintf (buf fer , "Argument  Of  Perigee:  %20.10Lf", 

SatArray->Sat [i] . Ge t ArgumentOf Peri gee ( ) ) ; 
TLEMemoBox- >Lines->Add (buffer) ; 
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sprintf (buffer, "Mean  Anomaly:  %20.10Lf”, 

SatArray->Sat [i] .GetMeanAnomaly ( ) ) ; 
TLEMemoBox->LineS“>Add (buffer) ; 

sprintf (buffer, "Mean  Motion:  %20.10Lf", 

SatArray->Sat [i] . GetMeanMotion ( ) ) ; 
TLEMemoBoX”  >Lines-“> Add  (buff  er)  ; 

sprintf (buffer, "Rev  Number  At  Epoch:  %d", 

SatArray->Sat [ i] . GetRevAtEpoch ()); 
TLEMemoBox->Lines->Add (buffer) ; 


sprintf (buffer, " ****************  END  SATELLITE  %d 

i+1); 

TLEMemoBox-  >L  ines  -  >Add  (buffer).; 


**********★★*****'' 


} 

sprintf (buffer, "END  OF  FILE  NAME:  %s  ******★****★**★**«, 
FileName) ; 

TLEMemoBox->Lines->Add (buffer) ; 


/*  PRINT  ANY  ERRORS  TO  THE  ERROR  MEMO  BOX  */ 


CreateDisplayText (ErrorList,  Errors) ; 
if  (ErrorList .TotalErrors 0 !=0) 

{ 

TLEErrorMemoBox->Lines->Clear ( ) ; 

TLEErrorMemoBox->Lines->Add( "THERE  ARE  ERRORS..."); 
for  (i  =  0;  i<ErrorList .TotalErrors () ;  i++) 
TLEErrorMemoBox->Lines->Add (Errors [i] ) ; 

} 

else 

{  TLEErrorMemoBox->Lines->Clear ( ) ; 

TLEErrorMemoBox->L ines -> Add ( "No  Errors ..."); 

} 
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E.12  TestErrorStructure.cpp  (Non-Graphical  Interface) 


/*  MODULE  NAME:  TestErrorStructure.cpp  */ 
/*  AUTHOR:  Captain  David  Vloedman  */ 
/*  DATE  CREATED:  August  15,  1998  */ 
/*  */ 
/*  PURPOSE:  This  module  is  design  to  be  a  simple  test  module  for  */ 
/*  the  ErrorStructure  modules.  It  makes  calls  to  the  */ 
/*  ErrorStructure  routines  and  uses  the  error  structures.  */ 
/*  This  code  is  not  an  executable  part  of  the  PA  project.  */ 
/*  It  is  only  a  test  stub.  */ 
/*  */ 
/*  COMPILER:  Borland  C++  Builder 3  Standard  version  */ 
/*  This  compiler  should  be  used  to  compile  and  link.  */ 
/*  */ 


Z****************************************************************************/ 
/********★★***★******★*******★****/ 

/*  C++BUILDER-SPECIFIC  LIBRARIES  */ 

/*********************************/ 

#pragma  hdrstop 
#pragma  argsused 
#include  <condefs.h> 

# include  <stdio.h> 

/*★*****************************★*/ 

/*  C  STANDARD  LIBRARIES  */ 

Z*********************************/ 

#include  <stdio.h> 

#include  <stdlib,h> 
tinclude  <string.h> 

#include  <iostream.h> 
tinclude  <conio.h> 

Z********+************************z 
/*  USER  DEFINED  LIBRARIES  */ 

z*********************************z 
# include  "ErrorStructure. h” 

USEUNIT ( "ErrorStructure . cpp " ) ; 

zz - - - 

int  mainO 
{ 

Z*******************************************z 
/*  NOTE:  ErrorStructure  is  defined  within  */ 

/*  Errors true ture.h  */ 

Z ******************************************* z 
ErrorStructure  ErrorList; 

ErrorStructure  *ErrorPtr=&ErrorList ; 
char  Errors [MAXERRORS] [MAXMESSAGELENGTH] ; 
int  count; 
int  i; 

char  buffer [MAXINPUTLINELENGTH] ; 

z*+*+*++************************************z 

/*  BEGIN  EXECUTION  */ 

z*******************************************z 

strepy (buffer, "Test  Case  1”); 

ErrorList.AddErrorC'Main  1", buffer,  0); 

ErrorList .AddError ( "Main  2 " , "Test  Case 

ErrorList.AddErrorC'Main  3", "Test  Case 

ErrorList.AddErrorC'Main  4", "Test  Case  4",  1); 

ErrorList.AddErrorC'Main  5", "Test  Case  5",  1); 

ErrorList.AddErrorC'Main  6", "Test  Case  6",  1); 

ErrorList.AddErrorC'Main  7", "Test  Case  7",  1) ; 


2",  1); 
3",  1); 
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CreateDisplayText {*ErrorPtr,  Errors) ; 
for  (i  =  0;  i<ErrorList . TotalErrors ( ) ;  i++) 
cout  «  Errors [i]  «  endl; 
i  =  getch ( ) ; 
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Appendix  F. 

Sample  Two  Line  Element  (TLE)  File  Format 


F.1  Sample  TLE  File 

1  6909U  73081A  96095.97701855  +.00000078  +00000-0  +70284-4  0  0102 

2  6909  089.7704  093.8156  0162024  105.7374  256.1702  13.6800259831943 

1  6909U  73081A  96095.97701855  +.00000078  +00000-0  +70284-4  0  0102 

2  6909  089.7704  093.8156  0162024  105.7374  256.1702  13.6800259831943 

1  8746U  76023A  96096.15457780  -.00000097  +00000-0  +10000-3  0  0049 

2  8746  015.3575  273.2760  0013056  142.8352  087.7876  01.0026721801907 

1  8747U  76023B  96096.15673441  -.00000102  +00000-0  +00000-0  0  0012 

2  8747  015.3521  273.3512  0023832  136.2812  095.6103  01.0027314701907 

1  9478U  76101A  96093.28172880  +.00000049  +00000-0  +10000-3  0  0615 

2  9478  012.9069  033.7479  0005869  099.5006  341.4463  01.0028020801458 

1  10637U  78012A  96095.86463512  -.00000154  +00000-0  +10000-3  0  0244 

2  10637  035.6846  084.2647  1353688  054.8200  331.5684  01.0025756801920 

1  12089U  80098A  96093.11987032  -.00000271  +00000-0  +00000-0  0  0816 

2  12089  006.2358  056.4726  0003308  303.2412  193.6849  01.0026574302452 

1  12994U  81119A  96091.51457987  -.00000150  +00000-0  +10000-3  0  0530 

2  12994  005.8775  057.5493  0005167  316.4773  157.4150  01.0027132601693 

1  13083U  82017A  96088.99006407  +.00000070  +00000-0  +10000-3  0  0638 

2  13083  005.8733  057.2095  0030143  271.4999  088.2606  00.9922799103227 

1  13367U  82072A  96096.17389770  +.00000033  +00000-0  +17128-4  0  0894 

2  13367  098.0838  149.2719  0007846  015.4314  344.7113  14.5717754372990 

1  13595U  82097A  96094.59762657  -.00000001  +00000-0  +10000-3  0  0370 


2  23741  000.0085  167.3677  0002445  201.5504  192.8057  01.0027165000118 

1  23748U  95071A  96096.18479622  +.00001785  +00000-0  +34075-4  0  0242 

2  23748  065.0214  133.8895  0010447  300.9161  059.0956  15.5209027201663 

1  23751U  95072A  96096.13625365  -.00000044  +00000-0  +00000-0  0  0086 

2  23751  098.6992  171.3332  0001121  059.0289  301.1001  14.2163508701405 

1  23752U  95072B  96096.13206129  -.00000020  +00000-0  +10000-4  0  0041 

2  23752  098.5532  170.2575  0004324  212.4478  147.6434  14.2488888901408 

1  23754U  95073A  96095.49851374  -.00000008  +00000-0  +00000-0  0  0064 

2  23754  000.0342  124.0248  0002246  262.3037  227.1814  01.0027393100088 

1  23757U  95074A  96096.09776230  +.0,0000555  +00000-0  +17404-4  0  0063 

2  23757  022.9772  189.2860  0013321  265.4654  094.4354  14.9762623401449 
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F.2  TLE  Set  Format 

TLE  files  consist  of  a  listing  of  two-line  element  sets  as  provided  by  the  U.S. 
Space  Command  (USSC).  TLE  sets  are  The  following  table  describes  the  format  of  a 
TLE  set,  which  is  composed  of  two  “Cards”,  or  lines. 


Table  F.1.  Format  of  Card  1 


Column 

Description 

1 

Card  number 

2 

Blank 

3-7 

Satellite  or  SSC  number 

8 

Security  classification 

9 

Blank 

10-17 

International  number 

18 

Blank 

19-20 

Epoch  Year 

21-32 

Epoch  day  to  eight  decimal  places 

33 

Blank 

34-43 

N/2  -  Revolutions  per  day  squared 

44 

Blank 

45-52 

N/6  -  Revolutions  per  day  cubed 

53 

Blank 

54-61 

Bstar  drag 

62 

Blank 

63 

Ephemeris 

64 

Blank 

65-68 

Element  set  number 
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Table  F.2.  Format  of  Card  2 


Column 

Description 

1 

Card  number 

2 

Blank 

3-7 

Satellite  or  SSC  number 

8 

Blank 

9-16  1 

Inclination  (degrees) 

17 

Blank 

18-25 

Right  ascension  of  node  (degrees) 

26 

Blank 

27-33  1 

Eccentricity  (decimal  point  understood) 

34  1 

»  Blank 

35-42 

Argument  of  perigee  (degrees) 

43 

Blank 

44-51 

Mean  anomaly  (degrees) 

52 

Blank 

53-63 

Mean  motion  (revolutions  per  day) 

64  1 

Revolution  number  at  epoch 
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